se.idlg

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

/*
	se.idlg

*!  VERSION 1.1.8  03apr2005

	SCRIPTS to be called within -SCRIPT PREINIT-:

		SCRIPT se_createAsML			-- has robust
		SCRIPT se_createAsInternalML		-- has robust
		SCRIPT se_createAsNoML			-- has robust
		SCRIPT se_createAsAnalytic		-- has clustered robust
		SCRIPT se_createAsN2step		-- no robust
		SCRIPT se_createAsH2step		-- no robust
		SCRIPT se_createAs2step			-- no robust
		SCRIPT se_createAsOLS			-- has robust
		SCRIPT se_createAsLinearized		-- has clustered robust
		SCRIPT se_createAsJknifeBstrap		-- no  robust
		SCRIPT se_createAsJknifeBstrapML	-- has robust
		SCRIPT se_createAsGLM			-- glm & binreg
		SCRIPT se_createAsGEE			-- xtgee & xt..., pa

	PROGRAM called by -PROGRAM command-:

		se_output

	SCRIPTS called by the "Weights" tab:

		se_setPW_on
		se_setNonPW_on
		se_setWeights_off

	SCRIPTS called by the "Max options" tab:

		se_setDefaultOIM
		se_setDefaultOPG
		se_setDefaultEIM

	Other external SCRIPTS:

		se_disable		-- disable the "SE" tab
		se_enable		-- enable  the "SE" tab
		se_setNotes_off
		se_setTitleSeCluster
		se_setTitleSE
		se_setCluster_off
		se_setRobust_off
		se_setRobust_on
		se_setClRobust_off
		se_setClRobust_on
		se_switchToJknifeBstrap
		se_switchToJknifeBstrapML
		se_setBias_on
		se_setNoAdjust_on
		se_setGEE_off
		se_setGEE_on
		se_setRGF_off
		se_setRGF_on
		se_setIRLS_off
		se_setIRLS_on

	Internal PROGRAMS and SCRIPTS are all prefixed with "_se_" in their
	name, except -SCRIPT se_PRINIT- and -SCRIPT se_POSTINIT- (for the
	obvious reason).  These scripts are not meant to be called outside
	this file.

	NOTE: -PROGRAM se_output- uses -robust- instead of -vce(robust)-
	to make this file compatible with estimation commands that only accept
	the -robust- option (and do not accept the -vce()- option yet).

*/

// SCRIPTS for external use *************************************************

SCRIPT se_createAsClRobust
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasRobust.settrue
	se_hasClRobust.settrue
	se_default_vcetype.setstring ""
	program _se_build_lists
END

SCRIPT se_createAsML
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasRobust.settrue
	se_hasClRobust.settrue
	se_hasOIM.settrue
	se_hasOPG.settrue
	se_default_vcetype.setstring "OIM"
	program _se_build_lists
END

SCRIPT se_createAsInternalML
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasRobust.settrue
	se_hasClRobust.settrue
	se_hasIOIM.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_default_vcetype.setstring "IOIM"
	program _se_build_lists
END

SCRIPT se_createAsNoML
BEGIN
	script _se_SETUP
	se_hasNotes.setfalse
	// allowed vcetypes
	se_hasRobust.settrue
	se_hasClRobust.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	program _se_build_lists
END

SCRIPT se_createAsAnalytic
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasAnalytic.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_default_vcetype.setstring "Analytic"
	program _se_build_lists
END

SCRIPT se_createAsN2step
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasN2step.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_default_vcetype.setstring "Newey's two-step"
	program _se_build_lists
END

SCRIPT se_createAsH2step
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasH2step.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_default_vcetype.setstring "Heckman's two-step"
	program _se_build_lists
END

SCRIPT se_createAs2step
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_has2step.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_default_vcetype.setstring "Two-step"
	program _se_build_lists
END

SCRIPT se_createAs2stage
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_has2stage.settrue
	se_default_vcetype.setstring "Two-stage"
	program _se_build_lists
END

SCRIPT se_createAsOLS
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasRobust.settrue
	se_hasClRobust.settrue
	se_hasOLS.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_default_vcetype.setstring "OLS"
	program _se_build_lists
END

SCRIPT se_createAsLinearized
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasLinearized.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_default_vcetype.setstring "Linearized"
	program _se_build_lists
END

SCRIPT se_createAsJknifeBstrap
BEGIN
	script _se_SETUP
	se_hasNotes.setfalse
	// allowed vcetypes
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	program _se_build_lists
END

SCRIPT se_createAsJknifeBstrapML
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasRobust.settrue
	se_hasClRobust.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_hasOIM.settrue
	se_hasOPG.settrue
	se_default_vcetype.setstring "OIM"
	program _se_build_lists
END

SCRIPT se_createAsGLM
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	se_isGLM.settrue
	// allowed vcetypes
	se_hasRobust.settrue
	se_hasClRobust.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_hasOIM.settrue
	se_hasOPG.settrue
	se_hasEIM.settrue
	se_hasHAC.settrue
	se_hasJackknife1.settrue
	se_hasUnbiased.settrue
	se_default_vcetype.setstring "OIM"
	program _se_build_lists
END

SCRIPT se_createAsGEE
BEGIN
	script _se_SETUP
	se_hasNotes.settrue
	se_isGEE.settrue
	se_noCluster.settrue
	// allowed vcetypes
	se_hasRobust.settrue
	se_hasGLS.settrue
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	se_default_vcetype.setstring "GLS"
	program _se_build_lists
END

// PROGRAM called by -PROGRAM command- **************************************

PROGRAM se_output
BEGIN
	if ! se_vcetype.equals("Default standard errors") {
		put /program _se_vce_output
		if se_closeParenthesis {
			put ") "
		}
		if se_isHAC {
			require se.vn_t
		}
		optionarg se.vn_t
		if se_vcetype.equals("Clustered robust") ///
		 | se_vcetype.equals("Cluster") {
			require se.vn_cluster
		}
		optionarg se.vn_cluster
		if se.vn_cluster {
			if ! se.rb_hc1 {
				stopbox stop ///
`"On the "SE/Robust" tab,"' ///
`"Only "n/(n-k)" is allowed with a cluster variable"'
			}
		}
		option se.rb_hc2
		option se.rb_hc3
	}
	if se_isGLM {
		optionarg se.en_vfact
		optionarg se.en_disp
		option se.rb_deflt
		option se.rb_x2
		option se.rb_dev
		option se.rb_value
		if se.rb_value {
			require se.en_value
			optionarg se.en_value
		}
	}
	if se_isGEE {
		option se.rb_nmp
		option se.rb_rgf
		option se.rb_deflt
		option se.rb_x2
		option se.rb_dev
		option se.rb_phi
		option se.rb_value
		if se.rb_value {
			require se.en_value
			optionarg se.en_value
		}
	}
	if se_hasNoAdjust & !se.ck_noadjust & !H(se.ck_noadjust) {
		put " " "noadjust"
	}
END
PROGRAM _se_vce_output
BEGIN
	// NOTE: this script should only be called by -SCRIPT se_output-
	put " "
	put se.lb_vcetype
	if !H(se.cb_hac) {
		require se.cb_hac
		put " "
		put se.cb_hac
	}
	if se.ck_lag {
		require se.en_lag
		put " "
		put se.en_lag
	}
	beginoptions
		option se.ck_nodots
		option se.ck_mse
		option se.ck_bca
		optionarg /hidedefault se.sp_reps
		optionarg se.ed_seed
	endoptions
END

// SCRIPTS called by the "Weights" tab **************************************

SCRIPT se_setPW_on
BEGIN
	se_isPWon.settrue
	se_isWeighted.settrue
	program _se_set_notes
	program _se_rebuild_listbox
END
SCRIPT se_setNonPW_on
BEGIN
	se_isPWon.setfalse
	se_isWeighted.settrue
	program _se_set_notes
	program _se_rebuild_listbox
END
SCRIPT se_setWeights_off
BEGIN
	se_isPWon.setfalse
	se_isWeighted.setfalse
	program _se_set_notes
	program _se_rebuild_listbox
END

// SCRIPTS called by the "Max options" tab **********************************

SCRIPT se_setDefaultOIM
BEGIN
	se_old_default_vcetype.setstring "OIM"
	se_default_vcetype.setstring "OIM"
	program _se_set_notes
END
SCRIPT se_setDefaultOPG
BEGIN
	se_old_default_vcetype.setstring "OPG"
	se_default_vcetype.setstring "OPG"
	program _se_set_notes
END
SCRIPT se_setDefaultEIM
BEGIN
	se_old_default_vcetype.setstring "EIM"
	se_default_vcetype.setstring "EIM"
	program _se_set_notes
END

// Other external SCRIPTS ***************************************************

SCRIPT se_setNotes_off
BEGIN
	se_notesVisible.setfalse
END

SCRIPT se_setTitleSeCluster
BEGIN
	se.settabtitle "SE/Cluster"
END

SCRIPT se_setTitleSeRobust
BEGIN
	se.settabtitle "SE/Robust"
END

SCRIPT se_setTitleSE
BEGIN
	se.settabtitle "SE"
END

SCRIPT se_setCluster_off
BEGIN
	se_noCluster.settrue
	program _se_rebuild_listbox
END

SCRIPT se_setRobust_off
BEGIN
	se_hasRobust.setfalse
	se_noCluster.settrue
	program _se_check_robust
	program _se_rebuild_listbox
	script se_setTitleSE
END
SCRIPT se_setRobust_on
BEGIN
	se_hasRobust.settrue
	program _se_rebuild_listbox
	script se_setTitleSeRobust
END

SCRIPT se_setClRobust_off
BEGIN
	script se_setRobust_off
END
SCRIPT se_setClRobust_on
BEGIN
	se_hasClRobust.settrue
	se_noCluster.setfalse
	script se_setRobust_on
END

SCRIPT se_setBias_on
BEGIN
	se_hasBias.settrue
END

SCRIPT se_setNoAdjust_on
BEGIN
	se_hasNoAdjust.settrue
END

SCRIPT se_setGEE_off
BEGIN
	se_hasNotes.setfalse
	se_isGEE.setfalse
	se_hasGLS.setfalse
	script se_setRobust_off
END
SCRIPT se_setGEE_on
BEGIN
	se_hasNotes.settrue
	se_isGEE.settrue
	se_hasGLS.settrue
	se_hasClRobust.setfalse
	program _se_check_ClRobust
	se_default_vcetype.setstring "GLS"
	script se_setRobust_on
END

SCRIPT se_setRGF_off
BEGIN
	se_hasRGF.setfalse
	program _se_rebuild_listbox
END
SCRIPT se_setRGF_on
BEGIN
	se_hasRGF.settrue
	program _se_rebuild_listbox
END

SCRIPT se_switchToJknifeBstrap
BEGIN
	se_hasNotes.setfalse
	// allowed vcetypes
	se_hasBootstrap.settrue
	se_hasClRobust.setfalse
	se_hasEIM.setfalse
	se_hasHAC.setfalse