varbasic.ado

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

*! version 1.0.3  02dec2002
program define varbasic 
	version 8
	syntax varlist(ts numeric) [if] [in] [,		///
		LAgs(numlist integer >0 sort)		///
		Step(numlist integer >0 max=1)		///
		Irf Fevd				///
		noGraph					///
		]
		
	marksample touse

		
	if "`lags'" == "" {
		local lags "1 2"
	}	

	if "`step'" == "" {
		local step 8
	}

	local nstats : word count `irf' `fevd'

	if `nstats' == 0 {
		local stat oirf
	}

	if `nstats' > 1 { 
		di as err "more than one statistic specified"
		exit 198
	}

	if "`irf'`fevd'" != "" & "`graph'" != "" {
		di as err "{cmd:nograph} cannot be specied with "	///
			"{cmd:`irf'`fevd'}"
		exit 198
	}	

	if `nstats' == 1 {
		local stat `irf' `fevd' 
	}

	var `varlist' if `touse' , lags(`lags') 

	capture varirf create varbasic, step(`step') set(_varbasic, replace)
	if _rc > 0 {
		di as err "could not create varbasic.vrf"
		exit _rc
	}	

	if "`graph'" == "" {
		varirf graph `stat'
	}	

end