_grownonmiss.ado

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

*! version 1.0.0  04oct2004
program define _grownonmiss
	version 6, missing

	gettoken type 0 : 0 
	gettoken g    0 : 0
	gettoken eqs  0 : 0

	syntax varlist [if] [in] [, Strok BY(string) ]
	if `"`by'"' != "" {
		_egennoby rownonmiss() `"`by'"'
		/* NOTREACHED */
	}

	quietly { 
		tokenize `varlist'
		if "`strok'"=="" {
			gen `type' `g' = (`1'<.) `if' `in'
			mac shift
			while "`1'"!="" {
				replace `g' = `g' + (`1'<.) `if' `in'
				mac shift 
			}
		}
		else {
			gen `type' `g' = !missing(`1') `if' `in'
			mac shift
			while "`1'"!="" {
				replace `g' = `g' + !missing(`1') `if' `in'
				mac shift 
			}
		}
	}
end