tetrachoric.dlg

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

/*
	tetrachoric

*! VERSION 1.1.1  31mar2005

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE _ht230
INCLUDE header

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

DIALOG main, label("tetrachoric -  Tetrachoric correlations for binary variables") ///
	tabtitle("Main")
BEGIN
   TEXT	    tx_var		_lft	_top	_iwd	.,		///
	label("Variables:")
   VARLIST  vl_var		@	_ss	@	.,		///
	label("Variables")
   GROUPBOX gb_opts		_lft	_ls	@	_ht12,		///
	label("Options")
   CHECKBOX ck_avail		_indent	_ss	_inwd	.,		///
	option(available)						///
	label("Compute pairwise correlations using all available data")
   DEFINE holdcx @cx
   CHECKBOX ck_format		@	_ms	@	.,		///
	clickon("script format_on") clickoff("script format_off")	///
	label("Override display format for correlations (default %8.4g)")
   EDIT     ed_format		_cksep	_ss	_en7wd	.,		///
	option("format") default("%8.4g")
   BUTTON   bn_format		_en7sep	@      _cken7r2	.,		///
	label("Help format...")	onpush(view help format##|_new)
   CHECKBOX ck_notable		_ilft	_ms	holdcx	.,		///
	label("Suppress display of correlations") option(notable)
   CHECKBOX ck_posdef		_ilft	_ms	@	.,		///
   	 option(posdef)							///
	label("Modify correlations to be positive definite or positive semidefinite")
END

SCRIPT format_on
BEGIN
  main.ed_format.enable
  main.bn_format.enable
END

SCRIPT format_off
BEGIN
  main.ed_format.disable
  main.bn_format.disable
END

INCLUDE byifin
INCLUDE weights_f

PROGRAM command
BEGIN
  	INCLUDE _by_pr
        put "tetrachoric "
        varlist main.vl_var
 	INCLUDE _weights_pr
        INCLUDE _ifin_pr
        beginoptions
        	option main.ck_avail
		if main.ck_format {
			optionarg main.ed_format
		}
		option main.ck_notable
		option main.ck_posdef
      endoptions
END