loneway.dlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· DLG 代码 · 共 70 行

/*
	loneway

*! VERSION 1.1.0  07dec2004

*/

VERSION 9.0

INCLUDE _std_medium
INCLUDE header

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

DIALOG main, label("loneway - Large one-way ANOVA") tabtitle("Main")
BEGIN
  TEXT     tx_dv             _lft      _top      120     .,		///
	label("Response variable:")
  VARNAME  vn_dv             @         _ss       @         .,		///
	label("Response variable")

  TEXT     tx_groupvar       +140      _top      @         .,		///
	label("Group variable:")
  VARNAME  vn_groupvar       @         _ss       @         .,		///
	label("Group variable")

  GROUPBOX gb_options        _lft      _ls       _iwd      _ht15,	///
	label("Options")

  GROUPBOX gb_reference      _ilft     _ss       _inwd     _ht6,	///
	label("Reference point for estimation of rho")
  RADIO    rb_default        _indent   _ss       _inwd     ., first	///
	option(NONE)							///
	label("Default value of 1")
  RADIO    rb_mean           @         _ss       @         .,		///
	option(mean)							///
	label("Expected value of F distribution")
  RADIO    rb_median         @         _ss       @         ., last	///
	option(median)							///
	label("Median of F distribution")

  CHECKBOX ck_exact          _ilft     _xls      _ibwd     .,		///
	option(exact)							///
	label("Exact confidence intervals (groups must be equal)")

  DEFINE  _x  _ilft
  DEFINE  _cx _sprb
  DEFINE  _y  _ls
  INCLUDE _sp_level
END

INCLUDE byifin
INCLUDE weights_a

PROGRAM command
BEGIN
	INCLUDE _by_pr
	put "loneway "
	varlist main.vn_dv
	varlist main.vn_groupvar
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		option radio(main rb_default rb_mean rb_median)
		option main.ck_exact
		INCLUDE _level_main_pr
	endoptions
END