rreg.dlg

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

/*
  rreg

*! VERSION 1.1.0  20mar2005

  keyword:  eclass

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE header

HELP hlp1, view("help rreg")
RESET res1

DIALOG main, label("rreg - Robust regression") tabtitle("Model")
BEGIN
  INCLUDE _dviv

  GROUPBOX gb_opts   _lft      _xls      _iwd      _ht3,		/*
		*/ label("Options")					/*
		*/

  EDIT     en_tune   _ilft     _ms       _en7wd   .,			/*
		*/ label("Biweight tuning constant")			/*
		*/ numonly						/*
		*/ default(7)						/*
		*/ option("tune")					/*
		*/
  TEXT     tx_tune   _spsep    @        _cwd2     .,			/*
		*/ label("Biweight tuning constant")			/*
		*/



END

INCLUDE byifin

DIALOG rpt, tabtitle("Reporting")
BEGIN
  DEFINE _x _lft
  DEFINE _cx _spr2b
  DEFINE _y _top
  INCLUDE _sp_level

  GROUPBOX gb_genvar _lft      _ls       _iwd      _ht4h,		/*
  		*/ label("Generate new variables")
  TEXT     tx_genwt  _ilft     _ss       _inwd     .,			/*
		*/ label("Weight variable:")				/*
		*/
  EDIT     ed_genwt  @         _ss       _vnwd     .,			/*
		*/ label("Weight variable")				/*
		*/ max(32)						/*
		*/ option("genwt")
END

DIALOG max, tabtitle("Opt options")
BEGIN
  SPINNER  sp_iter   _lft      _top      _spwd     .,			/*
		*/ label("Max iterations")				/*
		*/ min(1)						/*
		*/ max(10000)						/*
		*/ default(1000)					/*
		*/ option("iterate")					/*
		*/
  TEXT     tx_iter   _spsep    @         _spr2b    .,			/*
		*/ label("Maximum iterations")				/*
		*/

  EDIT     en_tol    _lft      _ls       _spwd     .,			/*
		*/ label("Convergence criterion")			/*
		*/ numonly						/*
		*/ default(0.01)					/*
		*/ option("tolerance")					/*
		*/
  TEXT     tx_tol    _spsep    @         _cwd2     .,			/*
		*/ label("Convergence criterion")			/*
		*/
  CHECKBOX ck_nolog  _lft      _ls       _cwd1     .,			/*
		*/ label("Suppress iteration log")			/*
		*/ option("nolog")					/*
		*/
  CHECKBOX ck_graph  @         _ms       @         .,			/*
		*/ label("Graph weights during convergence")		/*
		*/ option("graph")					/*
		*/
END

PROGRAM command
BEGIN
	allowxi
	INCLUDE _by_pr
	put "rreg "
	varlist main.vn_dv [main.vl_iv]
	INCLUDE _ifin_pr
	beginoptions
		optionarg /hidedefault main.en_tune
		optionarg /hidedefault rpt.sp_level
		optionarg rpt.ed_genwt
		optionarg /hidedefault max.sp_iter
		optionarg /hidedefault max.en_tol
		option max.ck_nolog
		option max.ck_graph
	endoptions
END