/* *! metaninf dialog version 1.0.2, 29 Feb 2004, T. J. Steichen, steichen@triad.rr.com *! for metaninf version 1.0.2, 29 Feb 2004, T. J. Steichen, steichen@triad.rr.com Influence of a single study in meta-analysis estimation ------------------------------------------------------- Syntax: metaninf varlist [if exp] [in range] [, fixed fixedi random randomi rr or rd peto cornfield hedges cohen glass nostandard label(namevar=namevar[, yearvar=yearvar]) ilevel(#) olevel(#) notable nograph save(varname [, replace]) ] Install in User Statistics menu via Stata commands: . window menu append item "stUserStatistics" "metan&inf (Metan-based Influence Analysis)" "db metaninf" . window menu refresh To permanently install, place the commands in your -profile.do- file. */ VERSION 8.0 INCLUDE _std_small INCLUDE _ht240 INCLUDE header HELP hlp1, view("help metaninf") RESET res1, label("Reset") DIALOG main, label("metaninf 1.0.2 - Metan-based Influence Analysis") tabtitle("Main") BEGIN GROUPBOX gb_data 10 5 330 _ht1h, /// label("Type of Data:") RADIO r_binary 15 25 100 ., /// label("Binary Count") first /// onclickon(script main_binary_on) /// onclickoff(script main_binary_off) RADIO r_continuous 125 25 100 ., /// label("Continuous") middle /// onclickon(script main_continuous_on) /// onclickoff(script main_continuous_off) RADIO r_effect 235 25 100 ., /// label("Effect Size") last /// onclickon(script main_effect_on) /// onclickoff(script main_effect_off) TEXT tx_binary 10 50 _iwd ., /// label("Vars for Counts a, b, c, d, in that order") VARLIST vl_binary @ _ss @ ., /// label("Vars for a, b, c, d") TEXT tx_contin_exp @ 50 _iwd ., /// label("Vars for Experimental Group: n, mean, sd, in that order") VARLIST vl_contin_exp @ _ss @ ., /// label("Experimental Group: n, mean, sd") TEXT tx_contin_ctl @ _ss _iwd ., /// label("Vars for Control Group: n, mean, sd, in that order") VARLIST vl_contin_ctl @ _ss @ ., /// label("Control Group: n, mean, sd") TEXT tx_effect @ 50 _iwd ., /// label("Vars for Effect Sizes: theta, se(theta), in that order") VARLIST vl_effect @ _ss @ ., /// label("Effect Sizes: theta, se(theta)") GROUPBOX gb_labels 10 130 330 _ht3h, /// label("Labels for Data:") CHECKBOX cb_name 20 150 70 ., /// label("Name:") /// onclickon(main.vn_name.enable) /// onclickoff(main.vn_name.disable) /// option("id") VARNAME vn_name 100 150 230 ., /// label("Name Variable") CHECKBOX cb_year 20 170 70 ., /// label("Year:") /// onclickon(main.vn_year.enable) /// onclickoff(main.vn_year.disable) /// option("id") VARNAME vn_year 100 170 230 ., /// label("Year Variable") CHECKBOX cb_save_jk 10 200 330 ., /// label("Save jack-knived estimates: varname [, replace]") /// onclickon(main.vn_save_jk.enable) /// onclickoff(main.vn_save_jk.disable) VARNAME vn_save_jk 10 220 330 ., /// label("Save estimates Variable") /// option("save") END DIALOG metan_b, tabtitle("Binary Opts") BEGIN GROUPBOX gb_pool 0 10 210 _ht9h, /// label("Pooling Model") RADIO r_fixed 10 30 190 ., /// label("Fixed, Mantel Haenzel") first /// option("fixed") RADIO r_fixedi @ _ss @ ., /// label("Fixed, Inverse Variance") middle /// option("fixedi") RADIO r_random @ _ss @ ., /// label("Random, Mantel Haenzel") middle /// option("random") RADIO r_randomi @ _ss @ ., /// label("Random, Inverse Variance") middle /// option("randomi") RADIO r_peto @ _ss @ ., /// label("Peto") last /// option("peto") GROUPBOX gb_stat 220 10 120 _ht5h, /// label("Statistic") RADIO r_rr 230 30 80 ., /// label("RR") first /// option("rr") RADIO r_or @ _ss @ ., /// label("OR") middle /// onclickon(script metan_b_or_on) /// onclickoff(script metan_b_or_off) /// option("or") RADIO r_rd @ _ss @ ., /// label("RD") last /// option("rd") CHECKBOX cb_cornfield 10 140 200 ., /// label("Use Cornfield CI's") /// option("cornfield") CHECKBOX cb_chi2 10 160 200 ., /// label("Use Chi-2 Statistic") /// option("chi2") CHECKBOX cb_breslow 10 180 200 ., /// label("Use Breslow-Day test") /// option("breslow") CHECKBOX cb_notable 230 140 200 ., /// label("noTable") /// option("notable") CHECKBOX cb_nograph 230 160 200 ., /// label("noGraph") /// option("nograph") END DIALOG metan_c, tabtitle("Contin. Opts") BEGIN GROUPBOX gb_pool 0 10 210 _ht3h, /// label("Pooling Model") RADIO r_fixed 10 30 190 ., /// label("Fixed, Inverse Variance") first /// option("fixed") RADIO r_random @ _ss @ ., /// label("Random, Inverse Variance") last /// option("random") GROUPBOX gb_stat 220 10 120 _ht7h, /// label("Statistic") RADIO r_cohen 230 30 100 ., /// label("Cohen") first /// option("cohen") RADIO r_hedges @ _ss @ ., /// label("Hedges") middle /// option("hedges") RADIO r_glass @ _ss @ ., /// label("Glass") middle /// option("glass") RADIO r_nostandard @ _ss @ ., /// label("noStandard") last /// option("nostandard") CHECKBOX cb_notable 230 140 200 ., /// label("noTable") /// option("notable") CHECKBOX cb_nograph 230 160 200 ., /// label("noGraph") /// option("nograph") END DIALOG metan_e, tabtitle("Effect Opts") BEGIN GROUPBOX gb_pool 0 10 210 _ht3h, /// label("Pooling Model") RADIO r_fixed 10 30 190 ., /// label("Fixed, Inverse Variance") first /// option("fixed") RADIO r_random @ _ss @ ., /// label("Random, Inverse Variance") last /// option("random") /* GROUPBOX gb_stat 220 10 120 _ht5h, /// label("Statistic") RADIO r_rr 230 30 80 ., /// label("RR") first /// option("rr") RADIO r_or @ _ss @ ., /// label("OR") middle /// option("or") RADIO r_rd @ _ss @ ., /// label("RD") last /// option("rd") */ CHECKBOX cb_notable 230 140 200 ., /// label("noTable") /// option("notable") CHECKBOX cb_nograph 230 160 200 ., /// label("noGraph") /// option("nograph") END INCLUDE ifin SCRIPT main_binary_on BEGIN main.tx_binary.show main.vl_binary.show main.tx_binary.enable main.vl_binary.enable main.tx_effect.disable main.vl_effect.disable main.tx_effect.hide main.vl_effect.hide main.tx_contin_exp.disable main.vl_contin_exp.disable main.tx_contin_exp.hide main.vl_contin_exp.hide main.tx_contin_ctl.disable main.vl_contin_ctl.disable main.tx_contin_ctl.hide main.vl_contin_ctl.hide END SCRIPT main_binary_off BEGIN main.tx_binary.disable main.vl_binary.disable main.tx_binary.hide main.vl_binary.hide END SCRIPT main_continuous_on BEGIN main.tx_contin_exp.show main.vl_contin_exp.show main.tx_contin_exp.enable main.vl_contin_exp.enable main.tx_contin_ctl.show main.vl_contin_ctl.show main.tx_contin_ctl.enable main.vl_contin_ctl.enable main.tx_binary.disable main.vl_binary.disable main.tx_binary.hide main.vl_binary.hide main.tx_effect.disable main.vl_effect.disable main.tx_effect.hide main.vl_effect.hide END SCRIPT main_continuous_off BEGIN main.tx_contin_exp.disable main.vl_contin_exp.disable main.tx_contin_exp.hide main.vl_contin_exp.hide main.tx_contin_ctl.disable main.vl_contin_ctl.disable main.tx_contin_ctl.hide main.vl_contin_ctl.hide END SCRIPT main_effect_on BEGIN main.tx_effect.show main.vl_effect.show main.tx_effect.enable main.vl_effect.enable main.tx_binary.disable main.vl_binary.disable main.tx_binary.hide main.vl_binary.hide main.tx_contin_exp.disable main.vl_contin_exp.disable main.tx_contin_exp.hide main.vl_contin_exp.hide main.tx_contin_ctl.disable main.vl_contin_ctl.disable main.tx_contin_ctl.hide main.vl_contin_ctl.hide END SCRIPT main_effect_off BEGIN main.tx_effect.disable main.vl_effect.disable main.tx_effect.hide main.vl_effect.hide END SCRIPT metan_b_or_on BEGIN metan_b.r_peto.enable metan_b.cb_cornfield.enable metan_b.cb_chi2.enable metan_b.cb_breslow.enable END SCRIPT metan_b_or_off BEGIN metan_b.r_peto.disable metan_b.cb_cornfield.disable metan_b.cb_chi2.disable metan_b.cb_breslow.disable END PROGRAM command BEGIN put "metaninf " if main.r_binary { varlist main.vl_binary } if main.r_continuous { varlist main.vl_contin_exp main.vl_contin_ctl } if main.r_effect { varlist main.vl_effect } INCLUDE _ifin_pr beginoptions if main.cb_name | main.cb_year { put "label(" if main.cb_name { put "namevar=" main.vn_name } if main.cb_name & main.cb_year { put ", " } if main.cb_year { put "yearvar=" main.vn_year } put ") " } if main.r_binary { option radio(metan_b r_fixed r_fixedi r_random r_randomi) option radio(metan_b r_rr r_or r_rd) option metan_b.cb_cornfield option metan_b.cb_chi2 option metan_b.cb_breslow option metan_b.cb_nograph option metan_b.cb_notable } if main.r_continuous { option radio(metan_c r_fixed r_random) option radio(metan_c r_cohen r_hedges r_glass r_nostandard) option metan_c.cb_nograph option metan_c.cb_notable } if main.r_effect { option radio(metan_e r_fixed r_random) /* option radio(metan_e r_rr r_or r_rd) */ option metan_e.cb_nograph option metan_e.cb_notable } optionarg main.vn_save_jk endoptions END