ttestby.dlg

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

/*
  ttestby

*! VERSION 1.0.2  27sep2004

  t-test by groups.

*/

VERSION 8.0

INCLUDE _std_medium
INCLUDE header

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

DIALOG main, label("ttest - Group mean comparisons tests") tabtitle("Main")
BEGIN
  /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/
  TEXT     tx_var    _lft      _top      _cwd1     .,			/*
		*/ label("Variable name:")				/*
		*/
  VARNAME  vn_var    @         _ss       _vnwd     .,			/*
		*/ label("Variable name")				/*
		*/

  TEXT     tx_byopt  _lft2     _top      _cwd1     _ht8,		/*
		*/ label("Group variable name:")			/*
		*/
  VARNAME  vn_byopt  @         _ss       _vnwd     .,			/*
		*/ label("Group variable name")				/*
		*/ option("by")						/*
		*/

  CHECKBOX ck_uneq   _lft      _ls       _iwd      _ht2,		/*
		*/ label("Unequal variances")				/*
		*/ clickon("gaction main.ck_welch.enable")		/*
		*/ clickoff("gaction main.ck_welch.disable")		/*
		*/ groupbox						/*
		*/ option("unequal")					/*
		*/
  CHECKBOX ck_welch  _indent2  _ss       -40      .,			/*
		*/ label("Welch's approximation")			/*
		*/ option("welch")					/*
		*/

  DEFINE _x _lft
  DEFINE _cx _spr
  DEFINE _y _xxls
  INCLUDE _sp_level

END

INCLUDE byifin

PROGRAM command
BEGIN
	INCLUDE _by_pr
	put "ttest "
	varlist main.vn_var
	INCLUDE _ifin_pr
	beginoptions
		require main.vn_byopt
		optionarg main.vn_byopt
		option main.ck_uneq
		option main.ck_welch
		INCLUDE _level_main_pr
	endoptions
END