You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
322 lines
9.7 KiB
Plaintext
322 lines
9.7 KiB
Plaintext
7 months ago
|
/*
|
||
|
|
|
||
|
|
*! meta dialog version 1.0.1, 13 May 2003, T. J. Steichen, steichen@triad.rr.com
|
||
|
|
*! for meta version 2.06, Mar 1998, Stephen Sharp, stephen.j.sharp@gsk.com
|
||
|
|
*! Jonathan Sterne, jonathan.sterne@bristol.ac.uk
|
||
|
|
|
||
|
|
Fixed and random-effects meta-analysis, with graphics
|
||
|
|
-----------------------------------------------------
|
||
|
|
|
||
|
|
Syntax: meta { theta | exp(theta) } { se_theta | var_theta | ll ul [cl] }
|
||
|
|
[if exp] [in range] [ , id(strvar) var ci graph(f|r|e) eform print
|
||
|
|
ebayes level(#) fmult(#) boxysca(#) boxshad(#) cline ltrunc(#) rtrunc(#)]
|
||
|
|
|
||
|
|
To install in User Statistics menu via Stata commands:
|
||
|
|
. window menu append item "stUserStatistics" "Meta-analysis of Effects (&meta)" "db meta"
|
||
|
|
. window menu refresh
|
||
|
|
To permanently install, place the commands in your -profile.do- file.
|
||
|
|
*/
|
||
|
|
|
||
|
|
VERSION 8.0
|
||
|
|
|
||
|
|
INCLUDE _std_small
|
||
|
|
INCLUDE header
|
||
|
|
|
||
|
|
HELP hlp1, view("help meta")
|
||
|
|
RESET res1, label("Reset")
|
||
|
|
|
||
|
|
DIALOG main, label("meta 2.06 - Meta-analysis of Effects") tabtitle("Main")
|
||
|
|
BEGIN
|
||
|
|
GROUPBOX gb_data 10 5 330 _ht5h, ///
|
||
|
|
label("Type of Data:")
|
||
|
|
RADIO r_se 15 25 100 ., ///
|
||
|
|
label("Theta, SE") first ///
|
||
|
|
onclickon(script main_se_on) ///
|
||
|
|
onclickoff(script main_se_off) ///
|
||
|
|
option(NONE)
|
||
|
|
RADIO r_var 115 25 100 ., ///
|
||
|
|
label("Theta, Var") middle ///
|
||
|
|
onclickon(script main_var_on) ///
|
||
|
|
onclickoff(script main_var_off) ///
|
||
|
|
option("var")
|
||
|
|
RADIO r_ci 215 25 110 ., ///
|
||
|
|
label("exp(Theta), CI") last ///
|
||
|
|
onclickon(script main_ci_on) ///
|
||
|
|
onclickoff(script main_ci_off) ///
|
||
|
|
option("ci")
|
||
|
|
|
||
|
|
TEXT tx_se 15 45 320 ., ///
|
||
|
|
label("Vars for theta, se(theta), in that order")
|
||
|
|
VARLIST vl_se @ _ss @ ., ///
|
||
|
|
label("Vars for theta, se(theta)")
|
||
|
|
|
||
|
|
TEXT tx_var @ 45 320 ., ///
|
||
|
|
label("Vars for theta, var(theta), in that order")
|
||
|
|
VARLIST vl_var @ _ss @ ., ///
|
||
|
|
label("Vars for theta, var(theta)")
|
||
|
|
|
||
|
|
TEXT tx_ci @ 45 320 ., ///
|
||
|
|
label("Vars for exp(theta), CI_LL, CI_UL, in that order")
|
||
|
|
VARLIST vl_ci @ _ss @ ., ///
|
||
|
|
label("Vars for exp(theta), CI_LL, CI_UL")
|
||
|
|
|
||
|
|
CHECKBOX cb_id 10 100 100 ., ///
|
||
|
|
label("ID Variable:") ///
|
||
|
|
onclickon(main.vn_id.enable) ///
|
||
|
|
onclickoff(main.vn_id.disable)
|
||
|
|
VARNAME vn_id 110 100 230 ., ///
|
||
|
|
label("ID Variable") ///
|
||
|
|
option("id")
|
||
|
|
|
||
|
|
CHECKBOX cb_eform 10 130 150 ., ///
|
||
|
|
label("Use exp(theta)") ///
|
||
|
|
option("eform")
|
||
|
|
CHECKBOX cb_print 10 150 150 ., ///
|
||
|
|
label("Print details") ///
|
||
|
|
option("print")
|
||
|
|
CHECKBOX cb_ebayes 10 170 300 ., ///
|
||
|
|
label("Generate Empirical Bayes variables") ///
|
||
|
|
option("ebayes")
|
||
|
|
|
||
|
|
CHECKBOX cb_level 220 130 75 ., ///
|
||
|
|
label("CI Level:") ///
|
||
|
|
onclickon(main.ed_level.enable) ///
|
||
|
|
onclickoff(main.ed_level.disable)
|
||
|
|
EDIT ed_level 300 @ 40 ., ///
|
||
|
|
label("Level") numonly default(95) ///
|
||
|
|
option("level")
|
||
|
|
END
|
||
|
|
|
||
|
|
DIALOG graph, tabtitle("Graph Options")
|
||
|
|
BEGIN
|
||
|
|
GROUPBOX gb_graph 10 10 330 _ht2h, ///
|
||
|
|
label("Graph Estimates:")
|
||
|
|
RADIO r_none 15 30 65 ., ///
|
||
|
|
label("None") first ///
|
||
|
|
onclickon(program graph_off) ///
|
||
|
|
onclickoff(program graph_on) ///
|
||
|
|
option(NONE)
|
||
|
|
RADIO r_fixed 80 30 65 ., ///
|
||
|
|
label("Fixed") middle ///
|
||
|
|
option("graph(f)")
|
||
|
|
RADIO r_random 145 30 75 ., ///
|
||
|
|
label("Random") middle ///
|
||
|
|
option("graph(r)")
|
||
|
|
RADIO r_ebayes 230 30 95 ., ///
|
||
|
|
label("Emp. Bayes") last ///
|
||
|
|
option("graph(e)")
|
||
|
|
|
||
|
|
CHECKBOX cb_cline 15 80 150 ., ///
|
||
|
|
label("Draw Estimate line") ///
|
||
|
|
option("cline")
|
||
|
|
|
||
|
|
CHECKBOX cb_fmult 200 80 95 ., ///
|
||
|
|
label("Font scale:") ///
|
||
|
|
onclickon(graph.ed_fmult.enable) ///
|
||
|
|
onclickoff(graph.ed_fmult.disable)
|
||
|
|
EDIT ed_fmult 300 @ 40 ., ///
|
||
|
|
label("Font scale") numonly default(1) ///
|
||
|
|
option("fmult")
|
||
|
|
|
||
|
|
CHECKBOX cb_boxy 200 110 95 ., ///
|
||
|
|
label("Box yscale:") ///
|
||
|
|
onclickon(graph.ed_boxy.enable) ///
|
||
|
|
onclickoff(graph.ed_boxy.disable)
|
||
|
|
EDIT ed_boxy 300 @ 40 ., ///
|
||
|
|
label("Box yscale") numonly default(1) ///
|
||
|
|
option("boxysca")
|
||
|
|
|
||
|
|
CHECKBOX cb_boxs 200 130 95 ., ///
|
||
|
|
label("Box shade:") ///
|
||
|
|
onclickon(graph.ed_boxs.enable) ///
|
||
|
|
onclickoff(graph.ed_boxs.disable)
|
||
|
|
EDIT ed_boxs 300 @ 40 ., ///
|
||
|
|
label("Box shading") numonly default(0) ///
|
||
|
|
option("boxshad")
|
||
|
|
|
||
|
|
CHECKBOX cb_ltrunc 15 110 95 ., ///
|
||
|
|
label("Left truncate:") ///
|
||
|
|
onclickon(graph.ed_ltrunc.enable) ///
|
||
|
|
onclickoff(graph.ed_ltrunc.disable)
|
||
|
|
EDIT ed_ltrunc 125 @ 40 ., ///
|
||
|
|
label("Left truncate") numonly ///
|
||
|
|
option("ltrunc")
|
||
|
|
|
||
|
|
CHECKBOX cb_rtrunc 15 130 105 ., ///
|
||
|
|
label("Right truncate:") ///
|
||
|
|
onclickon(graph.ed_rtrunc.enable) ///
|
||
|
|
onclickoff(graph.ed_rtrunc.disable)
|
||
|
|
EDIT ed_rtrunc 125 @ 40 ., ///
|
||
|
|
label("Right truncate") numonly ///
|
||
|
|
option("rtrunc")
|
||
|
|
|
||
|
|
GROUPBOX gb_gopts7 10 155 330 _ht1h, ///
|
||
|
|
label("Allowed Graph7 Options:")
|
||
|
|
EDIT ed_gopts7 15 175 320 ., ///
|
||
|
|
label("Graph7 Options")
|
||
|
|
END
|
||
|
|
|
||
|
|
INCLUDE ifin
|
||
|
|
|
||
|
|
SCRIPT main_se_on
|
||
|
|
BEGIN
|
||
|
|
main.tx_se.show
|
||
|
|
main.vl_se.show
|
||
|
|
main.tx_se.enable
|
||
|
|
main.vl_se.enable
|
||
|
|
|
||
|
|
main.tx_var.disable
|
||
|
|
main.vl_var.disable
|
||
|
|
main.tx_var.hide
|
||
|
|
main.vl_var.hide
|
||
|
|
|
||
|
|
main.tx_ci.disable
|
||
|
|
main.vl_ci.disable
|
||
|
|
main.tx_ci.hide
|
||
|
|
main.vl_ci.hide
|
||
|
|
END
|
||
|
|
|
||
|
|
SCRIPT main_se_off
|
||
|
|
BEGIN
|
||
|
|
main.tx_se.disable
|
||
|
|
main.vl_se.disable
|
||
|
|
main.tx_se.hide
|
||
|
|
main.vl_se.hide
|
||
|
|
END
|
||
|
|
|
||
|
|
SCRIPT main_var_on
|
||
|
|
BEGIN
|
||
|
|
main.tx_var.show
|
||
|
|
main.vl_var.show
|
||
|
|
main.tx_var.enable
|
||
|
|
main.vl_var.enable
|
||
|
|
|
||
|
|
main.tx_se.disable
|
||
|
|
main.vl_se.disable
|
||
|
|
main.tx_se.hide
|
||
|
|
main.vl_se.hide
|
||
|
|
|
||
|
|
main.tx_ci.disable
|
||
|
|
main.vl_ci.disable
|
||
|
|
main.tx_ci.hide
|
||
|
|
main.vl_ci.hide
|
||
|
|
END
|
||
|
|
|
||
|
|
SCRIPT main_var_off
|
||
|
|
BEGIN
|
||
|
|
main.tx_var.disable
|
||
|
|
main.vl_var.disable
|
||
|
|
main.tx_var.hide
|
||
|
|
main.vl_var.hide
|
||
|
|
END
|
||
|
|
|
||
|
|
SCRIPT main_ci_on
|
||
|
|
BEGIN
|
||
|
|
main.tx_ci.show
|
||
|
|
main.vl_ci.show
|
||
|
|
main.tx_ci.enable
|
||
|
|
main.vl_ci.enable
|
||
|
|
|
||
|
|
main.tx_se.disable
|
||
|
|
main.vl_se.disable
|
||
|
|
main.tx_se.hide
|
||
|
|
main.vl_se.hide
|
||
|
|
|
||
|
|
main.tx_var.disable
|
||
|
|
main.vl_var.disable
|
||
|
|
main.tx_var.hide
|
||
|
|
main.vl_var.hide
|
||
|
|
END
|
||
|
|
|
||
|
|
SCRIPT main_ci_off
|
||
|
|
BEGIN
|
||
|
|
main.tx_ci.disable
|
||
|
|
main.vl_ci.disable
|
||
|
|
main.tx_ci.hide
|
||
|
|
main.vl_ci.hide
|
||
|
|
END
|
||
|
|
|
||
|
|
PROGRAM graph_on
|
||
|
|
BEGIN
|
||
|
|
call graph.cb_cline.enable
|
||
|
|
call graph.cb_fmult.enable
|
||
|
|
call graph.cb_boxy.enable
|
||
|
|
call graph.cb_boxs.enable
|
||
|
|
call graph.cb_ltrunc.enable
|
||
|
|
call graph.cb_rtrunc.enable
|
||
|
|
call graph.gb_gopts7.enable
|
||
|
|
call graph.ed_gopts7.enable
|
||
|
|
if graph.cb_fmult {
|
||
|
|
call graph.ed_fmult.enable
|
||
|
|
}
|
||
|
|
if graph.cb_boxy {
|
||
|
|
call graph.ed_boxy.enable
|
||
|
|
}
|
||
|
|
if graph.cb_boxs {
|
||
|
|
call graph.ed_boxs.enable
|
||
|
|
}
|
||
|
|
if graph.cb_ltrunc {
|
||
|
|
call graph.ed_ltrunc.enable
|
||
|
|
}
|
||
|
|
if graph.cb_rtrunc {
|
||
|
|
call graph.ed_rtrunc.enable
|
||
|
|
}
|
||
|
|
END
|
||
|
|
|
||
|
|
PROGRAM graph_off
|
||
|
|
BEGIN
|
||
|
|
call graph.cb_cline.disable
|
||
|
|
call graph.cb_fmult.disable
|
||
|
|
call graph.cb_boxy.disable
|
||
|
|
call graph.cb_boxs.disable
|
||
|
|
call graph.cb_ltrunc.disable
|
||
|
|
call graph.cb_rtrunc.disable
|
||
|
|
call graph.gb_gopts7.disable
|
||
|
|
call graph.ed_gopts7.disable
|
||
|
|
if graph.cb_fmult {
|
||
|
|
call graph.ed_fmult.disable
|
||
|
|
}
|
||
|
|
if graph.cb_boxy {
|
||
|
|
call graph.ed_boxy.disable
|
||
|
|
}
|
||
|
|
if graph.cb_boxs {
|
||
|
|
call graph.ed_boxs.disable
|
||
|
|
}
|
||
|
|
if graph.cb_ltrunc {
|
||
|
|
call graph.ed_ltrunc.disable
|
||
|
|
}
|
||
|
|
if graph.cb_rtrunc {
|
||
|
|
call graph.ed_rtrunc.disable
|
||
|
|
}
|
||
|
|
END
|
||
|
|
|
||
|
|
PROGRAM command
|
||
|
|
BEGIN
|
||
|
|
put "meta "
|
||
|
|
if main.r_se {
|
||
|
|
varlist main.vl_se
|
||
|
|
}
|
||
|
|
if main.r_var {
|
||
|
|
varlist main.vl_var
|
||
|
|
}
|
||
|
|
if main.r_ci {
|
||
|
|
varlist main.vl_ci
|
||
|
|
}
|
||
|
|
INCLUDE _ifin_pr
|
||
|
|
beginoptions
|
||
|
|
option radio(main r_se r_var r_ci)
|
||
|
|
optionarg main.vn_id
|
||
|
|
option radio(graph r_none r_fixed r_random r_ebayes)
|
||
|
|
option main.cb_eform
|
||
|
|
option main.cb_print
|
||
|
|
option main.cb_ebayes
|
||
|
|
option graph.cb_cline
|
||
|
|
optionarg graph.ed_fmult
|
||
|
|
optionarg graph.ed_boxy
|
||
|
|
optionarg graph.ed_boxs
|
||
|
|
optionarg graph.ed_ltrunc
|
||
|
|
optionarg graph.ed_rtrunc
|
||
|
|
put graph.ed_gopts7
|
||
|
|
endoptions
|
||
|
|
END
|