svy_brr.dlg

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

/*
  svy brr

*!  VERSION 1.0.5  21mar2005

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE _ht320
INCLUDE header
HELP hlp1, view("help svy brr")
RESET res1

DIALOG main, tabtitle("Main") ///
	label("svy brr - Balanced repeated replication for survey data")
BEGIN
  DEFINE _y _top
  INCLUDE _cmd_exp_list

  TEXT     tx_hadamard _lft        _xls     _cwd2       .,              ///
	label("Hadamard matrix:")
  COMBOBOX cb_hadamard @           _ss      _cwd2       .,              ///
	label("")							///
	contents(matrix)						///
	dropdown							///
	error("Hadamard matrix")					///
	option("hadamard")

  EDIT     en_fay    @         +35       _en7wd    .,			///
		label("Fay's adjustment")				///
		numonly							///
		option("fay")
  TEXT     tx_fay    _en7sep   @         _en7r     .,			///
		label("Fay's adjustment")

  DEFINE _x _xsetbu
  DEFINE _y 290
  INCLUDE _bu_svyset

END

INCLUDE svy_subpop_model

DIALOG opt, tabtitle("Options")
BEGIN
  DEFINE _y _top
  INCLUDE _saving

  CHECKBOX ck_mse     _lft     _xxls      _cwd1     .,			///
		label("Use MSE formula for variance estimate")		///
		option("mse")

END

INCLUDE _saving_sc

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

  CHECKBOX ck_noheader _lft    _ls       _cwd1     .,			///
		label("Suppress the table header")			///
		clickon(program check_header)				///
		clickoff(program check_header)				///
		option("noheader")
  CHECKBOX ck_nolegend @       _ms       @         .,			///
		label("Suppress the table legend")			///
		clickon(program check_legend)				///
		clickoff(program check_legend)				///
		option("nolegend")
  CHECKBOX ck_verbose  @       _ms       @         .,			///
		label("Display the full table legend")			///
		option("verbose")
  CHECKBOX ck_noadjust @       _ms       @         .,			///
		label("Do not adjust model's Wald statistic")		///
		option(noadjust)


  TEXT     tx_title  _lft      _ls       _iwd      .,			///
		label("Title:")
  EDIT     ed_title  @         _ss       @         .,			///
		label("Title") option(title)

  DEFINE _x _lft2
  DEFINE _cx _cwd1
  DEFINE _y _top
  DEFINE _cy _ht8
  INCLUDE _output_reps
END

PROGRAM check_header
BEGIN
	if report.ck_noheader {
		call gaction report.ck_nolegend.disable
		call gaction report.ck_verbose.disable
	}
	if !report.ck_noheader {
		call gaction report.ck_nolegend.enable
		call program check_legend
	}
END

PROGRAM check_legend
BEGIN
	if report.ck_nolegend {
		call gaction report.ck_verbose.disable
	}
	if !report.ck_nolegend {
		call gaction report.ck_verbose.enable
	}
END

DIALOG adv, tabtitle("Advanced")
BEGIN
  CHECKBOX ck_nodrop _lft      _top      _iwd      .,			///
	label("Do not drop observations")				///
	option(nodrop)

  TEXT     tx_reject @         _ls       _iwd      .,			///
	label("Identify invalid results:")
  EDIT     ed_reject @         _ss       @         .,			///
	label("Identify invalid results")				///
	option(reject)
END

PROGRAM brr_options
BEGIN
	put "svy brr "
	option main.ck_b
	option main.ck_se
	put " " main.ed_explst
 	put " " /program ifin_output
	beginoptions
		put " " /program svy_subpop_output
		optionarg main.cb_hadamard
		optionarg main.en_fay
		put " "
		INCLUDE _saving_pr
		option opt.ck_mse
		INCLUDE _level_report_pr
		option report.ck_noheader
		option report.ck_nolegend
		option report.ck_verbose
		option report.ck_noadjust
		option radio(report rb_qui rb_dots rb_noi rb_trace)
		optionarg report.ed_title
		option adv.ck_nodrop
		optionarg adv.ed_reject
	endoptions
END

PROGRAM command
BEGIN
	put /program brr_options
	put " " " : "	/* end of prefix, begin command */
		require main.vl_cmd
		put main.vl_cmd
END