pca_estat.dlg

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

/*
	pca_estat

*!  VERSION 1.0.3  31mar2005

*/

VERSION 9.0

INCLUDE _std_large
DEFINE _dlght 330
INCLUDE header

HELP hlp1, view("help pca postestimation")
RESET res1

DIALOG main, label("estat - Postestimation tools for pca and pcamat") tabtitle("Main")
BEGIN
  TEXT     tx_subcmd		_lft	_top	_cwd1	.,			///
  	label("Reports and statistics: (subcommand)")
  LISTBOX  lb_subcmd		@	_ss	_iwd	70,			///
  	contents(main_subcommand_contents)					///
  	values(main_subcommand_values)						///
  	onselchangelist(main_subcommand_scripts)

  DEFINE holdy 110

  // anti options
  GROUPBOX gb_anti		_lft	holdy	_iwd	_ht6,			///
  	label("Correlation and covariance matrices")
  RADIO    rb_corr_cov		_ilft	_ss	_ibwd	.,			///
  	first label("Report both the correlation and covariance matrix")
  RADIO    rb_nocorr		@	_ss	@	.,			///
  	label("Report only the anti-image covariance matrix")			///
  	option(nocorr)
  RADIO    rb_nocov		@	_ss	@	.,			///
	last option(nocov)							///
	label("Report only the anti-image correlation matrix")
  CHECKBOX ck_anti_format	_lft	_xls	_iwd	.,			///
  	onclickon(script anti_format_on)					///
  	onclickoff(script anti_format_off)					///
	label("Specify the display format:")
  EDIT     en_anti_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format") default(%8.4f)
  BUTTON   bn_anti_format      _cken7sep @      _cken7r2 .,			///
	label("Help format...")	onpush(view help format##|_new)

  // kmo options
  CHECKBOX ck_novar		_lft	holdy	_iwd	.,			///
  	label("Display the overall KMO measure only")				///
  	option(novar)
  CHECKBOX ck_kmo_format	@	_ms	@	.,			///
  	onclickon(script kmo_format_on)						///
  	onclickoff(script kmo_format_off)					///
	label("Specify the display format:")
  EDIT     en_kmo_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format") default(%8.4f)
  BUTTON   bn_kmo_format      _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // loadings options
  GROUPBOX ck_cnorm		_lft	holdy	_iwd	_ht6,			///
  	label("Normalization of the columns (eigenvectors)")
  RADIO    rb_unit	       _indent	_ss	_inwd	.,	first		///
	option(NONE) label("ssq(column) = 1 (default)")
  RADIO    rb_eigen		@	_ss	@	.,			///
	option(cnorm(eigen)) label("ssq(column) = eigenvalue")
  RADIO    rb_inveigen		@	_ss	@	.,	last		///
	option(cnorm(inveigen)) label("ssq(column) = 1/eigenvalue")
  CHECKBOX ck_loading_format	_lft	_xls	_ibwd	.,			///
  	onclickon(script loading_format_on)					///
  	onclickoff(script loading_format_off)					///
	label("Specify the display format:")
  EDIT     en_loading_format  _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format") default(%8.4g)
  BUTTON   bn_loading_format  _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // residuals options
  CHECKBOX ck_obs		_lft	holdy	_iwd	.,			///
  	label("Display observed correlation or covariance matrix")		///
  	option(obs)
  CHECKBOX ck_fitted		@	_ms	@	.,			///
	option(fitted)								///
	label("Display fitted correlation or covariance matrix")
  CHECKBOX ck_res_format	@	_ms	@	.,			///
  	onclickon(script res_format_on)						///
  	onclickoff(script res_format_off)					///
	label("Specify the display format:")
  EDIT     en_res_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format") default(%9.4g)
  BUTTON   bn_res_format      _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // rotatecompare options
  CHECKBOX ck_rc_format		_lft	holdy	_iwd	.,			///
  	onclickon(script rc_format_on)						///
  	onclickoff(script rc_format_off)					///
	label("Specify the display format:")
  EDIT     en_rc_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format") default(%9.4f)
  BUTTON   bn_rc_format      _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // smc options
  CHECKBOX ck_smc_format	_lft	holdy	_iwd	.,			///
  	onclickon(script smc_format_on)						///
  	onclickoff(script smc_format_off)					///
	label("Specify the display format:")
  EDIT     en_smc_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format") default(%7.4f)
  BUTTON   bn_smc_format      _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // Summarize options
  CHECKBOX ck_labels		_lft	holdy	_iwd	.,			///
  	label("Display variable labels")					///
  	option(labels)
  CHECKBOX ck_noheader		@	_ms	@	.,			///
	option(noheader)							///
	label("Suppress the header")
  CHECKBOX ck_noweights		@	_ms	@	.,			///
	option(noweights)							///
	label("Ignore weights")

  INCLUDE estat_vce

END

INCLUDE estat_vce_pr

LIST main_subcommand_contents
BEGIN
	"Anti-image correlation and covariance matrices (anti)"
	"Kaiser-Meyer-Olkin measure of sampling adequacy (kmo)"
	"Component loading matrix in one of several normalizations (loadings)"
	"Matrix of correlation or covariance residuals (residuals)"
	"Compare rotated and unrotated components (rotatecompare)"
	"Squared multiple correlations between each variable & all others (smc)"
 	"Summarize estimation sample (summarize - for pca only)"
 	"Covariance matrix estimates (vce)"
END

LIST main_subcommand_values
BEGIN
	anti
	kmo
	loadings
	residuals
	rotatecompare
	smc
	summarize
	vce
END

LIST main_subcommand_scripts
BEGIN
	script sel_anti
	script sel_kmo
	script sel_loadings
	script sel_residuals
	script sel_rotatecompare
	script sel_smc
	script sel_summarize
	script sel_vce
END

SCRIPT sel_anti
BEGIN
	script anti_on
	script kmo_off
	script loadings_off
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_off
	program vce_off
END

SCRIPT sel_kmo
BEGIN
	script anti_off
	script kmo_on
	script loadings_off
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_off
	program vce_off
END

SCRIPT sel_loadings
BEGIN
	script anti_off
	script kmo_off
	script loadings_on
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_off
	program vce_off
END

SCRIPT sel_residuals
BEGIN
	script anti_off
	script kmo_off
	script loadings_off
	script residuals_on
	script rc_off
	script smc_off
	script main_summ_off
	program vce_off
END

SCRIPT sel_rotatecompare
BEGIN
	script anti_off
	script kmo_off
	script loadings_off
	script residuals_off
	script rc_on
	script smc_off
	script main_summ_off
	program vce_off
END

SCRIPT sel_smc
BEGIN
	script anti_off
	script kmo_off
	script loadings_off
	script residuals_off
	script rc_off
	script smc_on
	script main_summ_off
	program vce_off
END

SCRIPT sel_summarize
BEGIN
	script anti_off
	script kmo_off
	script loadings_off
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_on
	program vce_off
END

SCRIPT sel_vce
BEGIN
	script anti_off
	script kmo_off
	script loadings_off
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_off
	program vce_on
END

SCRIPT anti_on
BEGIN
	main.gb_anti.show
	main.rb_corr_cov.show
	main.rb_nocorr.show
	main.rb_nocov.show
	main.ck_anti_format.show
	main.en_anti_format.show
	main.bn_anti_format.show
END

SCRIPT anti_off
BEGIN
	main.gb_anti.hide
	main.rb_corr_cov.hide
	main.rb_nocorr.hide
	main.rb_nocov.hide
	main.ck_anti_format.hide
	main.en_anti_format.hide
	main.bn_anti_format.hide
END

SCRIPT kmo_on
BEGIN
	main.ck_novar.show
	main.ck_kmo_format.show
	main.en_kmo_format.show
	main.bn_kmo_format.show
END

SCRIPT kmo_off
BEGIN
	main.ck_novar.hide
	main.ck_kmo_format.hide
	main.en_kmo_format.hide
	main.bn_kmo_format.hide
END

SCRIPT loadings_on
BEGIN
	main.ck_cnorm.show
	main.rb_unit.show
	main.rb_eigen.show
	main.rb_inveigen.show
	main.ck_loading_format.show
	main.en_loading_format.show
	main.bn_loading_format.show
END

SCRIPT loadings_off
BEGIN
	main.ck_cnorm.hide
	main.rb_unit.hide
	main.rb_eigen.hide
	main.rb_inveigen.hide
	main.ck_loading_format.hide
	main.en_loading_format.hide
	main.bn_loading_format.hide
END

SCRIPT residuals_on
BEGIN
	main.ck_obs.show
	main.ck_fitted.show
	main.ck_res_format.show
	main.en_res_format.show
	main.bn_res_format.show
END

SCRIPT residuals_off
BEGIN
	main.ck_obs.hide
	main.ck_fitted.hide
	main.ck_res_format.hide
	main.en_res_format.hide
	main.bn_res_format.hide
END

SCRIPT rc_on
BEGIN
	main.ck_rc_format.show
	main.en_rc_format.show
	main.bn_rc_format.show
END

SCRIPT rc_off
BEGIN
	main.ck_rc_format.hide
	main.en_rc_format.hide
	main.bn_rc_format.hide
END

SCRIPT smc_on
BEGIN
	main.ck_smc_format.show
	main.en_smc_format.show
	main.bn_smc_format.show
END

SCRIPT smc_off
BEGIN
	main.ck_smc_format.hide
	main.en_smc_format.hide
	main.bn_smc_format.hide
END

SCRIPT main_summ_on
BEGIN
	main.ck_labels.show
	main.ck_noheader.show
	main.ck_noweights.show
END

SCRIPT main_summ_off
BEGIN
	main.ck_labels.hide
	main.ck_noheader.hide
	main.ck_noweights.hide
END

SCRIPT anti_format_on
BEGIN
	main.en_anti_format.enable
	main.bn_anti_format.enable
END

SCRIPT anti_format_off
BEGIN
	main.en_anti_format.disable
	main.bn_anti_format.disable
END

SCRIPT kmo_format_on
BEGIN
	main.en_kmo_format.enable
	main.bn_kmo_format.enable
END

SCRIPT kmo_format_off
BEGIN
	main.en_kmo_format.disable
	main.bn_kmo_format.disable
END

SCRIPT loading_format_on
BEGIN
	main.en_loading_format.enable
	main.bn_loading_format.enable
END

SCRIPT loading_format_off
BEGIN
	main.en_loading_format.disable
	main.bn_loading_format.disable
END

SCRIPT res_format_on
BEGIN
	main.en_res_format.enable
	main.bn_res_format.enable
END

SCRIPT res_format_off
BEGIN
	main.en_res_format.disable
	main.bn_res_format.disable
END

SCRIPT rc_format_on
BEGIN
	main.en_rc_format.enable
	main.bn_rc_format.enable
END

SCRIPT rc_format_off
BEGIN
	main.en_rc_format.disable
	main.bn_rc_format.disable
END

SCRIPT smc_format_on
BEGIN
	main.en_smc_format.enable
	main.bn_smc_format.enable
END

SCRIPT smc_format_off
BEGIN
	main.en_smc_format.disable
	main.bn_smc_format.disable
END

PROGRAM vl_eq_output
BEGIN
	put main.vl_eq
END

PROGRAM command
BEGIN
	put "estat "
	put main.lb_subcmd
	beginoptions
		// anti options
		option main.rb_nocorr
		option main.rb_nocov
		if main.ck_anti_format {
			require main.en_anti_format
			optionarg main.en_anti_format
		}

  		// kmo options
		option main.ck_novar
		if main.ck_kmo_format {
			require main.en_kmo_format
			optionarg main.en_kmo_format
		}

  		// loadings options
		option main.rb_unit
		option main.rb_eigen
		option main.rb_inveigen
		if main.ck_loading_format {
			require main.en_loading_format
			optionarg main.en_loading_format
		}

		// residuals options
		option main.ck_obs
		option main.ck_fitted
		if main.ck_res_format {
			require main.en_res_format
			optionarg main.en_res_format
		}

		// rotatecompare options
		if main.ck_rc_format {
			require main.en_rc_format
			optionarg main.en_rc_format
		}

		// smc options
		if main.ck_smc_format {
			require main.en_smc_format
			optionarg main.en_smc_format
		}

		// Summarize options
		option main.ck_labels
		option main.ck_noheader
		option main.ck_noweights
		put " " /program vce_output
	endoptions
END