📄 test.dlg
字号:
/*
test
*! VERSION 1.1.3 01apr2005
*/
VERSION 9.0
INCLUDE _std_glm
INCLUDE _ht340
INCLUDE header
HELP hlp1, view("help test")
RESET res1
DIALOG main, label("test - Test linear hypotheses after estimation") /*
*/ tabtitle("Main")
BEGIN
TEXT tx_list _lft _top _cwd3_1 ., /*
*/label("Specifications:")
LISTBOX lb_spec _lft _ss _cwd3_1 _ht8, /*
*/label("Specifications") /*
*/contents(spec_list) onselchangelist(spec_change)
DEFINE yrp @y
GROUPBOX gb_test _lft3_2 _top _comb3_1 _ht10, /*
*/label("Test type for this specification")
RADIO rb_test2a _indent yrp _comb3_3 ., /*
*/label("Skip this specification") /*
*/first clickon(program hide_all)
DEFINE x @x
RADIO rb_test2b @ _ss @ ., /*
*/label("Coefficients are 0") /*
*/clickon(script coef0_2)
RADIO rb_test2c @ _ss @ ., /*
*/label("Linear expressions are equal") /*
*/clickon(script expeq_2)
RADIO rb_test2d @ _ss @ ., /*
*/label("Coefficients in specific equation are 0") /*
*/clickon(script eqncoef0_2)
RADIO rb_test2e @ _ss @ ., /*
*/label("Coefficients equal between equations") /*
*/clickon(script eqeqncoef_2) last
RADIO rb_test3a @ yrp @ ., /*
*/label("Skip this specification") /*
*/first clickon(program hide_all)
RADIO rb_test3b @ _ss @ ., /*
*/label("Coefficients are 0") /*
*/clickon(script coef0_3)
RADIO rb_test3c @ _ss @ ., /*
*/label("Linear expressions are equal") /*
*/clickon(script expeq_3)
RADIO rb_test3d @ _ss @ ., /*
*/label("Coefficients in specific equation are 0") /*
*/clickon(script eqncoef0_3)
RADIO rb_test3e @ _ss @ ., /*
*/label("Coefficients equal between equations") /*
*/clickon(script eqeqncoef_3) last
RADIO rb_test4a @ yrp @ ., /*
*/label("Skip this specification") /*
*/first clickon(program hide_all)
RADIO rb_test4b @ _ss @ ., /*
*/label("Coefficients are 0") /*
*/clickon(script coef0_4)
RADIO rb_test4c @ _ss @ ., /*
*/label("Linear expressions are equal") /*
*/clickon(script expeq_4)
RADIO rb_test4d @ _ss @ ., /*
*/label("Coefficients in specific equation are 0") /*
*/clickon(script eqncoef0_4)
RADIO rb_test4e @ _ss @ ., /*
*/label("Coefficients equal between equations") /*
*/clickon(script eqeqncoef_4) last
RADIO rb_test5a @ yrp @ ., /*
*/label("Skip this specification") /*
*/first clickon(program hide_all)
RADIO rb_test5b @ _ss @ ., /*
*/label("Coefficients are 0") /*
*/clickon(script coef0_5)
RADIO rb_test5c @ _ss @ ., /*
*/label("Linear expressions are equal") /*
*/clickon(script expeq_5)
RADIO rb_test5d @ _ss @ ., /*
*/label("Coefficients in specific equation are 0") /*
*/clickon(script eqncoef0_5)
RADIO rb_test5e @ _ss @ ., /*
*/label("Coefficients equal between equations") /*
*/clickon(script eqeqncoef_5) last
RADIO rb_test6a @ yrp @ ., /*
*/label("Skip this specification") /*
*/first clickon(program hide_all)
RADIO rb_test6b @ _ss @ ., /*
*/label("Coefficients are 0") /*
*/clickon(script coef0_6)
RADIO rb_test6c @ _ss @ ., /*
*/label("Linear expressions are equal") /*
*/clickon(script expeq_6)
RADIO rb_test6d @ _ss @ ., /*
*/label("Coefficients in specific equation are 0") /*
*/clickon(script eqncoef0_6)
RADIO rb_test6e @ _ss @ ., /*
*/label("Coefficients equal between equations") /*
*/clickon(script eqeqncoef_6) last
RADIO rb_test1a x yrp _comb3_3 ., /*
*/label("Coefficients are 0") /*
*/first clickon(script coef0_1)
RADIO rb_test1b @ _ss @ ., /*
*/label("Linear expressions are equal") /*
*/clickon(script expeq_1)
RADIO rb_test1c @ _ss @ ., /*
*/label("Coefficients in specific equation are 0") /*
*/clickon(script eqncoef0_1)
RADIO rb_test1d @ _ss @ ., /*
*/label("Coefficients equal between equations") /*
*/clickon(script eqeqncoef_1) last
BUTTON bu_example _lft4_4 _xxxls _cwd4_1 ., /*
*/ label("Example...") /*
*/ push("script example")
DEFINE yb @y
/* Equation 1 programming */
TEXT tx_spec _lft @ _cwd1 ., /*
*/label("Specification 1, test these coefficients:")
VARLIST vl_coef1 @ _ms _iwd ., /*
*/label("Specification 1, test these coefficients")
VARLIST vl_coef1a @ @ _iwd ., /*
*/label("Specification 1, test these coefficients")
DEFINE yf @y
TEXT tx_coef1b @ _ms _iwd ., /*
*/label("Specification 1, test these coefficients: (leave blank for all)")
VARLIST vl_coef1b @ _ss _iwd ., /*
*/label("Specification 1, test these coefficients")
TEXT tx_spec1b _lft2 yb _cwd1 ., /*
*/label("Specification 1, equation 2: (required)")
COMBOBOX cb_eqn1a _lft _ss _cwd1 ., /*
*/label("Specification 1, equation 1") /*
*/contents(ereturn eqnames) dropdown
COMBOBOX cb_eqn1b _lft2 @ @ ., /*
*/label("Specification 1, equation 2") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec1c _lft _ms @ ., /*
*/label("Specification 1, equation 3:")
TEXT tx_spec1d _lft2 @ @ ., /*
*/label("Specification 1, equation 4:")
COMBOBOX cb_eqn1c _lft _ss @ ., /*
*/label("Specification 1, equation 3:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn1d _lft2 @ @ ., /*
*/label("Specification 1, equation 4:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec1e _lft _ms @ ., /*
*/label("Specification 1, equation 5:")
TEXT tx_spec1f _lft2 @ @ ., /*
*/label("Specification 1, equation 6:")
COMBOBOX cb_eqn1e _lft _ss @ ., /*
*/label("Specification 1, equation 5:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn1f _lft2 @ @ ., /*
*/label("Specification 1, equation 6:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_coef1c _lft _ms _iwd ., /*
*/label("Specification 1, test these coefficients: (leave blank for all)")
VARLIST vl_coef1c @ _ss @ ., /*
*/label("Specification 1, test these coefficients")
/* Equation 2 programming */
VARLIST vl_coef2 @ yf _iwd ., /*
*/label("Specification 2, test these coefficients")
VARLIST vl_coef2a @ yf _iwd ., /*
*/label("Specification 2, test these coefficients")
TEXT tx_coef2b @ _ms _iwd ., /*
*/label("Specification 2, test these coefficients: (leave blank for all)")
VARLIST vl_coef2b @ _ss _iwd ., /*
*/label("Specification 2, test these coefficients")
TEXT tx_spec2b _lft2 yb _cwd1 ., /*
*/label("Specification 2, equation 2: (required)")
COMBOBOX cb_eqn2a _lft _ss _cwd1 ., /*
*/label("Specification 2, equation 1") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn2b _lft2 @ @ ., /*
*/label("Specification 2, equation 2") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec2c _lft _ms @ ., /*
*/label("Specification 2, equation 3:")
TEXT tx_spec2d _lft2 @ @ ., /*
*/label("Specification 2, equation 4:")
COMBOBOX cb_eqn2c _lft _ss @ ., /*
*/label("Specification 2, equation 3:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn2d _lft2 @ @ ., /*
*/label("Specification 2, equation 4:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec2e _lft _ms @ ., /*
*/label("Specification 2, equation 5:")
TEXT tx_spec2f _lft2 @ @ ., /*
*/label("Specification 2, equation 6:")
COMBOBOX cb_eqn2e _lft _ss @ ., /*
*/label("Specification 2, equation 5:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn2f _lft2 @ @ ., /*
*/label("Specification 2, equation 6:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_coef2c _lft _ms _iwd ., /*
*/label("Specification 2, test these coefficients: (leave blank for all)")
VARLIST vl_coef2c @ _ss @ ., /*
*/label("Specification 2, test these coefficients")
/* Equation 3 programming */
VARLIST vl_coef3 @ yf _iwd ., /*
*/label("Specification 3, test these coefficients")
VARLIST vl_coef3a @ yf _iwd ., /*
*/label("Specification 3, test these coefficients")
TEXT tx_coef3b @ _ms _iwd ., /*
*/label("Specification 3, test these coefficients: (leave blank for all)")
VARLIST vl_coef3b @ _ss _iwd ., /*
*/label("Specification 3, test these coefficients")
TEXT tx_spec3b _lft2 yb _cwd1 ., /*
*/label("Specification 3, equation 2: (required)")
COMBOBOX cb_eqn3a _lft _ss _cwd1 ., /*
*/label("Specification 3, equation 1") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn3b _lft2 @ @ ., /*
*/label("Specification 3, equation 2") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec3c _lft _ms @ ., /*
*/label("Specification 3, equation 3:")
TEXT tx_spec3d _lft2 @ @ ., /*
*/label("Specification 3, equation 4:")
COMBOBOX cb_eqn3c _lft _ss @ ., /*
*/label("Specification 3, equation 3:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn3d _lft2 @ @ ., /*
*/label("Specification 3, equation 4:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec3e _lft _ms @ ., /*
*/label("Specification 3, equation 5:")
TEXT tx_spec3f _lft2 @ @ ., /*
*/label("Specification 3, equation 6:")
COMBOBOX cb_eqn3e _lft _ss @ ., /*
*/label("Specification 3, equation 5:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn3f _lft2 @ @ ., /*
*/label("Specification 3, equation 6:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_coef3c _lft _ms _iwd ., /*
*/label("Specification 3, test these coefficients: (leave blank for all)")
VARLIST vl_coef3c @ _ss @ ., /*
*/label("Specification 3, test these coefficients")
/* Equation 4 programming */
VARLIST vl_coef4 @ yf _iwd ., /*
*/label("Specification 4, test these coefficients")
VARLIST vl_coef4a @ yf _iwd ., /*
*/label("Specification 4, test these coefficients")
TEXT tx_coef4b @ _ms _iwd ., /*
*/label("Specification 4, test these coefficients: (leave blank for all)")
VARLIST vl_coef4b @ _ss _iwd ., /*
*/label("Specification 4, test these coefficients")
TEXT tx_spec4b _lft2 yb _cwd1 ., /*
*/label("Specification 4, equation 2: (required)")
COMBOBOX cb_eqn4a _lft _ss _cwd1 ., /*
*/label("Specification 4, equation 1") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn4b _lft2 @ @ ., /*
*/label("Specification 4, equation 2") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec4c _lft _ms @ ., /*
*/label("Specification 4, equation 3:")
TEXT tx_spec4d _lft2 @ @ ., /*
*/label("Specification 4, equation 4:")
COMBOBOX cb_eqn4c _lft _ss @ ., /*
*/label("Specification 4, equation 3:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn4d _lft2 @ @ ., /*
*/label("Specification 4, equation 4:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec4e _lft _ms @ ., /*
*/label("Specification 4, equation 5:")
TEXT tx_spec4f _lft2 @ @ ., /*
*/label("Specification 4, equation 6:")
COMBOBOX cb_eqn4e _lft _ss @ ., /*
*/label("Specification 4, equation 5:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn4f _lft2 @ @ ., /*
*/label("Specification 4, equation 6:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_coef4c _lft _ms _iwd ., /*
*/label("Specification 4, test these coefficients: (leave blank for all)")
VARLIST vl_coef4c @ _ss @ ., /*
*/label("Specification 4, test these coefficients")
/* Equation 5 programming */
VARLIST vl_coef5 @ yf _iwd ., /*
*/label("Specification 5, test these coefficients")
VARLIST vl_coef5a @ yf _iwd ., /*
*/label("Specification 5, test these coefficients")
TEXT tx_coef5b @ _ms _iwd ., /*
*/label("Specification 5, test these coefficients: (leave blank for all)")
VARLIST vl_coef5b @ _ss _iwd ., /*
*/label("Specification 5, test these coefficients")
TEXT tx_spec5b _lft2 yb _cwd1 ., /*
*/label("Specification 5, equation 2: (required)")
COMBOBOX cb_eqn5a _lft _ss _cwd1 ., /*
*/label("Specification 5, equation 1") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn5b _lft2 @ @ ., /*
*/label("Specification 5, equation 2") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec5c _lft _ms @ ., /*
*/label("Specification 5, equation 3:")
TEXT tx_spec5d _lft2 @ @ ., /*
*/label("Specification 5, equation 4:")
COMBOBOX cb_eqn5c _lft _ss @ ., /*
*/label("Specification 5, equation 3:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn5d _lft2 @ @ ., /*
*/label("Specification 5, equation 4:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec5e _lft _ms @ ., /*
*/label("Specification 5, equation 5:")
TEXT tx_spec5f _lft2 @ @ ., /*
*/label("Specification 5, equation 6:")
COMBOBOX cb_eqn5e _lft _ss @ ., /*
*/label("Specification 5, equation 5:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn5f _lft2 @ @ ., /*
*/label("Specification 5, equation 6:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_coef5c _lft _ms _iwd ., /*
*/label("Specification 5, test these coefficients: (leave blank for all)")
VARLIST vl_coef5c @ _ss @ ., /*
*/label("Specification 5, test these coefficients")
/* Equation 6 programming */
VARLIST vl_coef6 @ yf _iwd ., /*
*/label("Specification 6, test these coefficients")
VARLIST vl_coef6a @ yf _iwd ., /*
*/label("Specification 6, test these coefficients")
TEXT tx_coef6b @ _ms _iwd ., /*
*/label("Specification 6, test these coefficients: (leave blank for all)")
VARLIST vl_coef6b @ _ss _iwd ., /*
*/label("Specification 6, test these coefficients")
TEXT tx_spec6b _lft2 yb _cwd1 ., /*
*/label("Specification 6, equation 2: (required)")
COMBOBOX cb_eqn6a _lft _ss _cwd1 ., /*
*/label("Specification 6, equation 1") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn6b _lft2 @ @ ., /*
*/label("Specification 6, equation 2") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec6c _lft _ms @ ., /*
*/label("Specification 6, equation 3:")
TEXT tx_spec6d _lft2 @ @ ., /*
*/label("Specification 6, equation 4:")
COMBOBOX cb_eqn6c _lft _ss @ ., /*
*/label("Specification 6, equation 3:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn6d _lft2 @ @ ., /*
*/label("Specification 6, equation 4:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_spec6e _lft _ms @ ., /*
*/label("Specification 6, equation 5:")
TEXT tx_spec6f _lft2 @ @ ., /*
*/label("Specification 6, equation 6:")
COMBOBOX cb_eqn6e _lft _ss @ ., /*
*/label("Specification 6, equation 5:") /*
*/contents(list _dclst_0) dropdown
COMBOBOX cb_eqn6f _lft2 @ @ ., /*
*/label("Specification 6, equation 6:") /*
*/contents(list _dclst_0) dropdown
TEXT tx_coef6c _lft _ms _iwd ., /*
*/label("Specification 6, test these coefficients: (leave blank for all)")
VARLIST vl_coef6c @ _ss @ ., /*
*/label("Specification 6, test these coefficients")
END
DIALOG opt, label("") /*
*/ tabtitle("Options")
BEGIN
/*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/
CHECKBOX ck_mtest _lft _top _cwd3_1 _ht10, /*
*/label("Do multiple testing") groupbox /*
*/clickon(script mtest_on) clickoff(script mtest_off)
TEXT tx_mtest2 _ilft _ss _cwd3_4 ., /*
*/label("Adjust p-values by:")
RADIO rb_noad @ _ss @ ., /*
*/label("No adjustment") first option(mtest(noadjust))
RADIO rb_bonf @ _ss @ ., /*
*/label("Bonferroni") option(mtest(bonferroni))
RADIO rb_holm @ _ss @ ., /*
*/label("Holm") option(mtest(holm))
RADIO rb_sidak @ _ss @ ., /*
*/label("Sidak") option(mtest(sidak)) last
CHECKBOX ck_coef _lft3_2 _top _comb3_1 ., /*
*/label("Display estimated constrained coefficients") /*
*/option(coef)
CHECKBOX ck_accum @ _ms @ ., /*
*/label("Test hypothesis jointly with previously tested hypotheses")/*
*/option(accumulate)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -