_gkurt.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 22 行

*! version 1.2.1 01oct2004
* Based on version 1.1.1 NJC 29 January 1999 STB-50 dm70
program define _gkurt
	version 6.0, missing
	syntax newvarname =/exp [if] [in] [, BY(varlist)]        
	quietly {
		tempvar touse group
		mark `touse' `if' `in'
		sort `touse' `by'
		by `touse' `by' : gen long `group' = _n == 1 if `touse'
		replace `group' = sum(`group')
		local max = `group'[_N]
		local i 1
		gen double `varlist' = .
		while `i' <= `max' {
			su `exp' if `group' == `i', detail
			replace `varlist' = r(kurtosis) if `group' == `i'
			local i = `i' + 1
		}
	}
end