testnl.dlg

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

/*
	testnl

*! VERSION 1.1.1  31mar2005

*/

VERSION 9.0

INCLUDE _std_large
DEFINE _dlght 320
INCLUDE header

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

DIALOG main,label("testnl - Test nonlinear hypotheses after estimation")/*
		*/ tabtitle("Main")
BEGIN
  TEXT     tx_spec         _lft      15        _comb4_1 .,		/*
  		*/label("Specifications:")
  BUTTON   bu_spec         _lft4_4   -5        _cwd4_1  .,		/*
  		*/label("Examples ... ")				/*
  		*/push(script examples)
  VARLIST  vl_spec         _lft      _ms        _iwd     .,             /*
  		*/label("Specifications")
  VARLIST  vl_spec2        @         _ms        @        .,		/*
  		*/label("Specifications")
  VARLIST  vl_spec3        @         _ms        @        .,		/*
  		*/label("Specifications")
  VARLIST  vl_spec4        @         _ms        @        .,		/*
  		*/label("Specifications")
  VARLIST  vl_spec5        @         _ms        @        .,		/*
  		*/label("Specifications")
  CHECKBOX ck_mtest        @         +35        _cwd3_1  _ht10, 	/*
  		*/label("Do multiple testing") groupbox			/*
  		*/clickon(script mtest_on) clickoff(script mtest_off)
  DEFINE holdy @y
  TEXT     tx_mtest2       _ilft     _ss        _cwd3_4  .,             /*
                */label("Adjust p-values by:")
  RADIO    rb_noad         @         _ss        @        .,             /*
                */label("No adjustment") first option(mtest(noadjust))
  RADIO    rb_bonf         @         _ss        @        .,             /*
                */label("Bonferroni") option(mtest(bonferroni))
  RADIO    rb_holm         @         _ss        @        .,		/*
	        */label("Holm") option(mtest(holm))
  RADIO    rb_sidak        @         _ss        @        .,		/*
	        */label("Sidak") option(mtest(sidak)) last
  CHECKBOX ck_nsvy         _lft3_2   holdy      _comb3_1 .,		/*
  		*/label("With svy estimation commands, the Wald test")/*
  		*/option(nosvyadjust)
  TEXT     tx_nsvy1        _cksep    _vss       _inwd    .,		/*
  		*/label("is to be carried out as W/k ~ F(k,d)")
  TEXT     tx_nsvy2        @         _vss       _inwd    .,		/*
		*/label("rather than (d-k+1)W/(kd) ~ F(k, d-k+1)")
  CHECKBOX ck_iter         _lft3_2   _ls        _ckwd    .,		/*
 		*/label("") clickon(script iter_on) clickoff(script iter_off)
  SPINNER  sp_iter         _cksep    @          _spwd    .,		/*
  		*/label("Maximum number of iterations")			/*
  		*/default(100) min(2) max(1000000000) option(iterate)
  DEFINE holdx @x
  TEXT     tx_iter         _spsep    @          _ckspr3c .,		/*
  		*/label("Maximum number of iterations used")
  TEXT     tx_iter2        holdx     _ss        _comb3_3 .,		/*
  		*/label("to find the optimal step size for numerical")
  TEXT     tx_iter3        @         _vss       @        .,		/*
  		*/label("derivatives of the expressions to be tested")
END

SCRIPT iter_on
BEGIN
	main.sp_iter.enable
END

SCRIPT iter_off
BEGIN
	main.sp_iter.disable
END

SCRIPT mtest_on
BEGIN
	main.tx_mtest2.enable
	main.rb_noad.enable
	main.rb_bonf.enable
	main.rb_holm.enable
	main.rb_sidak.enable
END

SCRIPT mtest_off
BEGIN
	main.tx_mtest2.disable
	main.rb_noad.disable
	main.rb_bonf.disable
	main.rb_holm.disable
	main.rb_sidak.disable
END

SCRIPT examples
BEGIN
   view help testnl_example##|_new
END

PROGRAM command
BEGIN
	put "testnl "
	varlist main.vl_spec
	varlist [main.vl_spec2]
	varlist [main.vl_spec3]
	varlist [main.vl_spec4]
	varlist [main.vl_spec5]
	beginoptions
		if main.ck_mtest {
			option radio(main rb_noad rb_bonf rb_holm rb_sidak)
		}
		option main.ck_nsvy
		if main.ck_iter{
			optionarg main.sp_iter
		}
	endoptions
END