_gmedian.ado

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 3.0.2  20oct2004
program define _gmedian
	version 3.0, missing
	local varlist "req new max(1)"
	local exp "req nopre"
	local if "opt"
	local in "opt"
	local options "by(string)"
	parse "`*'"
	tempvar touse x n
	quietly {
		gen byte `touse'=1 `if' `in'
		gen double `x' = `exp'
		sort `touse' `by' `x'
		by `touse' `by': gen long `n'=sum(`x'<.)
		by `touse' `by': replace `varlist' = ( /* 
			*/ `x'[(`n'[_N]+1)/2] + /* 
			*/ `x'[(`n'[_N]+2)/2] ) / 2 if `touse'==1
	}
end