xttobit.dlg

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

/*
  xttobit

*!  VERSION 1.1.3  28mar2005

  keyword:  eclass

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE _ht320
INCLUDE header

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

DIALOG main, label("xttobit - Random-effects tobit models") tabtitle("Model")
BEGIN
  DEFINE _x _xsetbu
  DEFINE _y _top
  INCLUDE _bu_panelset
  INCLUDE _dviv4set

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

  GROUPBOX gb_censor _lft      _ls       _iwd      _ht4h,		/*
*/ label("At least one censoring limit or variable must be specified")	/*
		*/
  TEXT     tx_llarg  _indent   _ss       _cwd2     .,			/*
		*/ label("Left censoring limit/variable:")		/*
		*/
  DEFINE y @y
  VARNAME  vn_ll     @         _ss       _en14wd   .,			/*
		*/ label("Left censoring limit/variable")		/*
		*/ option("ll")						/*
		*/
  TEXT     tx_ularg  _lft2     y         _cwd2     .,			/*
		*/ label("Right censoring limit/variable:")		/*
		*/
  VARNAME  vn_ul     @         _ss       _en14wd   .,			/*
		*/ label("Right censoring limit/variable")		/*
		*/ option("ul")						/*
		*/

  GROUPBOX gb_opts   _lft      _xxls     _iwd      _ht9h,		/*
		*/ label("Options")					/*
		*/

  TEXT     tx_offset _ilft     _ss       _cwd2     .,			/*
		*/ label("Offset variable:")				/*
		*/
  VARNAME  vn_offset @         _ss       _vnwd     .,			/*
		*/ label("Offset variable")				/*
		*/ option("offset")					/*
		*/

  DEFINE _x _ilft
  DEFINE _cx _ibwd
  DEFINE _y _ls
  INCLUDE _constraints

END

INCLUDE intopts_re
INCLUDE byifin
INCLUDE weights_i
INCLUDE se


SCRIPT PREINIT
BEGIN
	script se_createAsJknifeBstrap
END

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

  GROUPBOX gb_tests    _lft        +35      _iwd         _ht5h,		///
  		label("Additional test statistics")
  CHECKBOX ck_tobit    _ilft       _ms      _ibwd        .,		///
		label("Perform likelihood-ratio test comparing model against pooled tobit model")		///
		option("tobit")
  CHECKBOX ck_noskip   _ilft       _ms      _ibwd        .,		///
		label("Perform likelihood-ratio test")			///
		option(noskip)
END

INCLUDE max_ml

SCRIPT POSTINIT
BEGIN
	script se_setCluster_off
	script se_setTitleSE
END

PROGRAM command
BEGIN
	allowxi
	INCLUDE _by_pr
	put "xttobit "
	varlist main.vn_dv [main.vl_iv]
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		option main.ck_nocons

		if ! main.vn_ll & ! main.vn_ul {
			stopbox stop				/*
			*/ `"At least one censoring limit"'	/*
			*/ `""Left" or "Right" must be specified"'
		}
		optionarg main.vn_ll
		optionarg main.vn_ul
		optionarg main.vn_offset
		put " " /program intopts_re_output
		INCLUDE _constraints_main_pr

		put " " /program se_output
		optionarg /hidedefault rpt.sp_level
		option rpt.ck_tobit
		option rpt.ck_noskip

		put " " /program max_output
	endoptions
END