mprobit.dlg

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

/*
  mprobit

*!  VERSION 1.0.3  16may2005

  keyword:  eclass

*/

VERSION 9.0
INCLUDE _std_large
DEFINE _dlght 320
INCLUDE header

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

DIALOG main, label("mprobit -  Multinomial probit regression")		///
	tabtitle("Model")
BEGIN
  INCLUDE _dviv

  CHECKBOX ck_nocons @         _ms       @         .,			///
	label("Suppress constant terms")				///
	option(noconstant)

  GROUPBOX gb_output _lft      _ls       _iwd      _ht9,		///
	label("Options")

  CHECKBOX ck_base   _ilft     _ls       _ckwd     .,			///
	onclickon(main.en_base.enable)					///
	onclickoff(main.en_base.disable)
  EDIT     en_base   _cksep    @         _en14wd   .,			///
	label("Base outcome") 						///
	option(baseoutcome)
  TEXT     tx_base   _en14sep  @         _cken7r2b .,			///
	label("Base outcome")

  DEFINE _x _ilft
  DEFINE _cx _ibwd
  DEFINE _y _ls
  INCLUDE _constraints
END

INCLUDE byifin
INCLUDE weights_fpi
INCLUDE se

SCRIPT PREINIT
BEGIN
	script se_createAsJknifeBstrapML
END

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

PROGRAM rpt_output
BEGIN
	optionarg /hidedefault rpt.sp_level
END

DIALOG int, tabtitle("Int options")
BEGIN
  SPINNER  sp_intpoints		_lft	_top	_spwd	.,		///
  	option(intpoints) min(1) default(15) max(100)
  TEXT     tx_intpoints		_spsep	@	200	.,		///
  	label("Number of quadrature points")
END

PROGRAM int_output
BEGIN
	optionarg /hidedefault int.sp_intpoints
END

INCLUDE max_ml

PROGRAM command
BEGIN
	allowxi
	INCLUDE _by_pr
	put "mprobit "
	varlist main.vn_dv [main.vl_iv]
	if !main.vl_iv & main.ck_nocons {
	  stopbox stop `""Suppress constant term" is selected without independent variables."'
	}
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		option main.ck_nocons
		if main.ck_base {
			optionarg main.en_base
		}
		INCLUDE _constraints_main_pr
		put " " /program se_output
		put " " /program rpt_output
		put " " /program int_output
		put " " /program max_output
	endoptions
END