mkmat.ado

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

*! version 1.0.7  01oct2004
*  original author -- Ken Heinecke, STB-20: ip6.
program def mkmat
	version 8, missing
	syntax varlist(numeric) [if] [in] [, MATrix(string) noMISsing ]

	if "`missing'" == "" {
		local vopt novarlist
	}
	marksample touse , `vopt'

	local dogen 0
	if "`matrix'"!="" {
		local matname "`matrix'"
		local dogen 1
	}
	preserve
	qui keep if `touse'
	if _N==0 {
		di as err "no observations"
		exit 2000
	}

	local nvar : word count `varlist'
	local nobs = _N
	if `dogen' {
		matrix `matname'=J(`nobs',`nvar',0) /* check matsize before  */
		mat drop `matname'		    /* we create any vectors */
	}
	tempname vnam
	foreach v of local varlist {
		if !`dogen' {
			local vnam "`v'"
		}
		mat `vnam' = J(`nobs',1,0)
		mat colnames `vnam' = `v'
		forvalues i = 1/`nobs' {
			mat `vnam'[`i',1] = `v'[`i']
		}
		if `dogen' {
			matrix `matname' = nullmat(`matname'),`vnam'
		}
	}
end
exit