slogit.dlg

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

/*
  slogit

*! VERSION 1.0.1  16may2005

  keyword:  eclass

*/

VERSION 9.0

INCLUDE _std_glm
DEFINE _dlght 420
INCLUDE header

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

DIALOG main, label("slogit - Stereotype logistic regression") tabtitle("Model")
BEGIN
  INCLUDE _dviv

  GROUPBOX gb_output	_lft	+35	_iwd	_ht11,		///
	label("Options")

  EDIT     en_dimension	_ilft	_ms	_en7wd	.,		///
	numonly option(dimension)
  TEXT     tx_dimension	_en7sep @	120	.,		///
	label("Dimension")

  EDIT     en_base	_lft2	@	_en14wd	.,		///
	label("Base outcome") 					///
	option(baseoutcome)
  TEXT     tx_base	_en14sep @	120	.,		///
	label("Base outcome")

  DEFINE _x _ilft
  DEFINE _cx _ibwd
  DEFINE _y _ls
  INCLUDE _constraints

  CHECKBOX ck_nocorner	_ilft	_ls	_ibwd	.,		///
	label("Do not generate the corner constraints")		///
	option(nocorner)
END

INCLUDE byifin
INCLUDE weights_fpi
INCLUDE se

SCRIPT PREINIT
BEGIN
	script se_createAsJknifeBstrapML
END

SCRIPT POSTINIT
BEGIN
	script max_setOptionSlogit
END

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

INCLUDE max_ml

PROGRAM command
BEGIN
	INCLUDE _by_pr
	put "slogit "
	varlist main.vn_dv main.vl_iv
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		optionarg main.en_dimension
		optionarg main.en_base
		optionarg main.cb_constr
		option main.ck_nocorner
		put " " /program se_output
		optionarg /hidedefault rpt.sp_level
		put " " /program max_output
END