twoway_qfitci_parse.class

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

//                                 twoway_qfitci_parse
//
//   A parser for adding a quadratic fit line with confidence intervals.  
//   Works with twoway.ado.
//
//   twoway_lfitci_parse does most of the work.

*! version 1.0.1  19feb2003

version 8

class {
} , inherit(twoway_lfitci_parse twoway_lfit_parse twoway_y2xview_parse)


// ---------------------------------------------------------------------------

program parse
	.Super(twoway_lfitci_parse).parse `0'

	if `"`.trans'"' != `""' {
		di as error "option transform() not allowed"
		exit 198
	}
end


/* -------------------------------------------------------------------------*/
/*
	Creates a new serset and the view and returns its reference.
	Assumes that the data in memory is the same as when parse was called.

	Allows a touse(varname) option that further restricts the sample, 
	restricts beyond the held .if and .in

	Additional options to the .serset.new command may be specified, but
	this is unlikely to be necessary.

	If must_create_serset == 1, then this command MUST be used, 
	otherwise the serset may be created by other means.
*/ 

program log_create_serset

	syntax , LOG(name) SERSETNAME(string) [ TOUSE(passthru) * ]

	.log_touse , log(`log') `touse'

	local rest `.varlist'
	gettoken y rest : rest
	gettoken x rest : rest

	.`log'.Arrpush __NOLOG__ twoway__qfit_serset , 			  ///
		sersetname(`sersetname') touse(\`touse1') x(`x') y(`y')	  ///
		min(`.min') max(`.max')	points(`.points') atobs(`.atobs') ///
		predopts(`.predict_opts') regopts(`.regress_opts') 	  ///
		morevars(`rest') weight(`.wtype'`.wtexp') std(`.std')	  ///
		level(`.level')

	.`log'.Arrpush LogMapping .`sersetname'	// make _fr_runlog place 
						// mapping statement into 
						// permanent log.

	.wtype = ""			// so .Super.log_create_view will
	.wtexp = ""			// not try to add weight to serset

	if `.fit' {
		.n = 2			// so log_create_view gets called twice
	}
	else	.n = 1			// only call for ci
end