frac_wgt.ado

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

*! version 2.0.0  17nov1998
program define frac_wgt, rclass
	version 6
/*
	Deal with weights.

	in: exp, touse, weight
	out:  (scalar) r(mnlnwt), (string) r(wgt)
*/
	args exp touse weight
	if `"`exp'"' != "" { 
		tempvar s
		gen `s' `exp'
		replace `touse'=0 if `s'<=0|`s'==.
		replace `s'=. if !`touse'
		if "`weight'"=="fweight" { 
			capture assert `s'==int(`s') if `touse'
			if _rc { noi error 401 } 
		}
		sum `s' 
		noi di "(sum of wgt is " r(sum) ")"
		replace `s'=log(`s'/r(mean))
		sum `s'
		ret scalar mnlnwt=r(mean)
		ret local wgt `"[`weight'`exp']"'
	}
	else {
		ret scalar mnlnwt = 0
	}
end