_pred_me.ado

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

*! version 1.0.1  28sep2004
program define _pred_me /* "unique-options" <rest> */, sclass
	version 6.0, missing
	sret clear
	gettoken ouser 0 : 0 		/* user options */
	local orig `"`0'"'
	gettoken varn 0 : 0, parse(" ,[")
	gettoken nxt : 0, parse(" ,[")
	if !(`"`nxt'"'=="" | `"`nxt'"'=="if" | `"`nxt'"'=="in" /*
		*/ | `"`nxt'"'==",") {
		local typ `varn'
		gettoken varn 0 : 0, parse(" ,[")
	}
	syntax [if] [in] [, `ouser' CONStant(varname numeric) /*
		*/ Equation(string) noOFFset *]
	if `"`options'"' != "" {
		_predict `orig'
		sret local done 1
		exit
	}
	confirm new var `varn'
	sret local done 0
	sret local typ `"`typ'"'
	sret local varn `"`varn'"'
	sret local rest `"`0'"'
end
exit