/*
  stepwise

*!  VERSION 2.0.1  21mar2005

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE header

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

DIALOG main, label("stepwise - Stepwise estimation") tabtitle("Model")
BEGIN
  DEFINE wlabel 130

  TEXT     tx_terms  _lft      _top      _cwd1     .,			///
	label("Regression terms:")
  TEXT     tx_cmds   _lft2     @         _cwd1     .,			///
	label("Command: (affects weights)")
  COMBOBOX cb_term   _lft      _ss       _cwd1     .,			///
	label("Regression terms")					///
	contents(term_con)						///
	onselchangelist(term_sel) dropdownlist
  COMBOBOX cb_cmd    _lft2     @         _cwd1     .,			///
	label("Command")						///
	contents(cmd_con)						///
	value(cmd_con)							///
	onselchangelist(cmd_sel) dropdownlist

  TEXT     tx_dv1    _lft      _ls       wlabel    .,			///
	label("Dependent variable:")
  DEFINE holdy @y
  VARNAME  vn_dv1    @         _ss       _vnwd     .,			///
	label("Dependent variable")

  TEXT     tx_dv2    _vlx      holdy     wlabel    .,			///
	label("Dependent variable 2:")
  VARNAME  vn_dv2    @         _ss       _vnwd     .,			///
	label("Dependent variable 2")

  TEXT     tx_term   _lft      _ls       _iwd      .,			///
	label("Term 1 -- variables to be included or excluded together")

  VARLIST  vn_term1  @         _ss       @         ., label("Term 1")
  VARLIST  vn_term2  @         @         @         ., label("Term 2")
  VARLIST  vn_term3  @         @         @         ., label("Term 3")
  VARLIST  vn_term4  @         @         @         ., label("Term 4")
  VARLIST  vn_term5  @         @         @         ., label("Term 5")
  VARLIST  vn_term6  @         @         @         ., label("Term 6")
  VARLIST  vn_term7  @         @         @         ., label("Term 7")
  VARLIST  vn_term8  @         @         @         ., label("Term 8")
  VARLIST  vn_term9  @         @         @         ., label("Term 9")
  VARLIST  vn_term10 @         @         @         ., label("Term 10")

  GROUPBOX gb_name   _lft      _ls       _iwd      _ht9,		///
	label("Selection criterion")

  CHECKBOX ck_pr     _ilft     _ss       _ibwd     .,			///
	label("Significance level for removal from the model:")		///
	clickon("program checkP_opts")					///
	clickoff("program checkP_opts")

  EDIT     en_pr     _cksep    _ss       _en7wd    .,			///
	label("Significance level for removal from the model")		///
	numonly								///
	option(pr)

  CHECKBOX ck_pe     _ilft     _ls       _ibwd     .,			///
	label("Significance level for addition to the model:")		///
	clickon("program checkP_opts")					///
	clickoff("program checkP_opts")

  EDIT     en_pe     _cksep    _ss       _en7wd    .,			///
	label("Significance level for addition to the model")		///
	numonly								///
	option(pe)
END

LIST term_con
BEGIN
	Term 1 (required)
	Term 2
	Term 3
	Term 4
	Term 5
	Term 6
	Term 7
	Term 8
	Term 9
	Term 10
END

LIST term_sel
BEGIN
	script term1
	script term2
	script term3
	script term4
	script term5
	script term6
	script term7
	script term8
	script term9
	script term10
END

LIST cmd_con
BEGIN
	clogit
	cloglog
	cnreg
	glm
	intreg
	logistic
	logit
	nbreg
	ologit
	oprobit
	poisson
	probit
	qreg
	regress
	scobit
	stcox
	streg
	tobit
END

LIST cmd_sel
BEGIN
	script clogit_on
	script cloglog_on
	script cnreg_on
	script glm_on
	script intreg_on
	script logitstic_on
	script logit_on
	script nbreg_on
	script ologit_on
	script oprobit_on
	script poisson_on
	script probit_on
	script qreg_on
	script regress_on
	script scobit_on
	script stcox_on
	script streg_on
	script tobit_on
END

PROGRAM checkP_opts
BEGIN
	if main.ck_pr {
		call gaction main.en_pr.enable
	}
	if ! main.ck_pr {
		call gaction main.en_pr.disable
	}
	if main.ck_pe {
		call gaction main.en_pe.enable
	}
	if ! main.ck_pe {
		call gaction main.en_pe.disable
	}
	if main.ck_pr & main.ck_pe {
		call gaction model2.ck_forward.enable
		call gaction model2.ck_hier.disable
	}
	if ! (main.ck_pr & main.ck_pe) {
		call gaction model2.ck_forward.disable
		call gaction model2.ck_hier.enable
	}
END

PROGRAM hide_allx
BEGIN
	if !H(main.vn_term1) {
		call gaction main.vn_term1.hide
	}
	if !H(main.vn_term2) {
		call gaction main.vn_term2.hide
	}
	if !H(main.vn_term3) {
		call gaction main.vn_term3.hide
	}
	if !H(main.vn_term4) {
		call gaction main.vn_term4.hide
	}
	if !H(main.vn_term5) {
		call gaction main.vn_term5.hide
	}
	if !H(main.vn_term6) {
		call gaction main.vn_term6.hide
	}
	if !H(main.vn_term7) {
		call gaction main.vn_term7.hide
	}
	if !H(main.vn_term8) {
		call gaction main.vn_term8.hide
	}
	if !H(main.vn_term9) {
		call gaction main.vn_term9.hide
	}
	if !H(main.vn_term10) {
		call gaction main.vn_term10.hide
	}

END

SCRIPT term1
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 1 -- variables to be included or excluded together:"
	main.vn_term1.show
END

SCRIPT term2
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 2 -- variables to be included or excluded together:"
	main.vn_term2.show
END

SCRIPT term3
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 3 -- variables to be included or excluded together:"
	main.vn_term3.show
END

SCRIPT term4
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 4 -- variables to be included or excluded together:"
	main.vn_term4.show
END

SCRIPT term5
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 5 -- variables to be included or excluded together:"
	main.vn_term5.show
END

SCRIPT term6
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 6 -- variables to be included or excluded together:"
	main.vn_term6.show
END

SCRIPT term7
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 7 -- variables to be included or excluded together:"
	main.vn_term7.show
END

SCRIPT term8
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 8 -- variables to be included or excluded together:"
	main.vn_term8.show
END

SCRIPT term9
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 9 -- variables to be included or excluded together:"
	main.vn_term9.show
END

SCRIPT term10
BEGIN
	program hide_allx
	main.tx_term.setlabel ///
		"Term 10 -- variables to be included or excluded together:"
	main.vn_term10.show
END

SCRIPT main_one_depvar
BEGIN
	script model2_dist_off
	main.tx_dv1.setlabel "Dependent variable:"
	main.tx_dv1.enable
	main.vn_dv1.enable
	main.tx_dv2.hide
	main.vn_dv2.hide
END

SCRIPT main_two_depvars
BEGIN
	script model2_dist_off
	main.tx_dv1.setlabel "Dependent variable 1:"
	main.tx_dv1.enable
	main.vn_dv1.enable
	main.tx_dv2.show
	main.vn_dv2.show
END

SCRIPT main_no_depvars
BEGIN
	main.tx_dv1.setlabel "Dependent variable:"
	main.tx_dv1.disable
	main.vn_dv1.disable
	main.tx_dv2.hide
	main.vn_dv2.hide
END

SCRIPT clogit_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_on
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_or_on
END

SCRIPT cloglog_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_eform_off
END

SCRIPT cnreg_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_on
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_eform_off
END

SCRIPT glm_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_eform_on
END

SCRIPT intreg_on
BEGIN
	script main_two_depvars
	script model2_lr_on
	main.tx_dv1.setlabel "Dependent variable 1:"
	main.tx_dv2.show
	main.vn_dv2.show
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_eform_off
END

SCRIPT logitstic_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_eform_off
END

SCRIPT logit_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_or_on
END

SCRIPT nbreg_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_on
	script model2_quant_off
	script model2_llul_off
	script rpt_irr_on
END

SCRIPT ologit_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_or_on
END

SCRIPT oprobit_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_eform_off
END

SCRIPT probit_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_eform_off
END

SCRIPT poisson_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_irr_on
END

SCRIPT qreg_on
BEGIN
	script main_one_depvar
	script model2_lr_off
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_on
	script model2_llul_off
	script rpt_eform_off
END

SCRIPT regress_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_eform_off
END

SCRIPT scobit_on
BEGIN
	script main_one_depvar
	script model2_lr_on
	script model2_group_off
	script model2_cens_off
	script model2_disp_off
	script model2_quant_off
	script model2_llul_off
	script rpt_or_on
END