_virf_mknewfile.ado

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

*! version 1.0.4  08jul2004
program define _virf_mknewfile 
	version 8.0
	syntax anything(id="new irf filename" name=fname) /*
		*/ [, replace exact loud ]
/* anything passes in strings asis, so any quotes are still on	
 *  the string in the macro
 * use local assignment to strip off quotes
 *
 * exact is undocumented it removes the automatic appending of 
 * 	".vrf" extention to irf files
 *
 */
 
 	preserve 

 	local fname `fname'
	_virf_fck `"`fname'"', `exact'
 	local fname `"`r(fname)'"'

	qui drop _all
	qui set obs 1
	qui gen double irf = 1
	qui label var irf  "impulse response function (irf)"
	qui drop in 1
	char _dta[_signature] vrf
	char _dta[_version] 1.1
	qui save `"`fname'"', `replace'
	if "`loud'" != "" {
		di as txt `"(file `fname' created)"'
	}	
	restore
end