_crcause.ado

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

*! version 1.0.0  06/23/93  (anachronism)
program define _crcause /* varname [varlist_of_numeric_vars] */
	version 3.1
	local touse "`1'"
	mac shift 
	if "`*'"=="" { exit }
	local varlist "req ex"
	parse "`*'"
	parse "`varlist'", parse(" ")
	quietly {
		local i 1
		while "``i''"!="" {
			replace `touse'=0 if ``i''==.
			local i=`i'+1
		}
	}
end