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.
181 lines
4.7 KiB
Plaintext
181 lines
4.7 KiB
Plaintext
7 months ago
|
/*
|
||
|
|
|
||
|
|
*! laabe dialog version 1.0.2, 3 Jun 2003, T. J. Steichen, steichen@triad.rr.com
|
||
|
|
*! for laabe version 1.21 24 Mar 2003 M. J. Bradburn, mike.bradburn@cancer.org.uk
|
||
|
|
|
||
|
|
L'abbe Graph
|
||
|
|
------------
|
||
|
|
|
||
|
|
Syntax: labbe varlist [if exp] [in range] [weight] , [ nowt percent
|
||
|
|
or(#,...,#) rr(#,...,#) rd(#,...,#) rrn(#,...,#) null logit graph options ]
|
||
|
|
|
||
|
|
To install in User Statistics menu via Stata commands:
|
||
|
|
. window menu append item "stUserStatistics" "Metan-based L'abbe Graph (&labbe)" "db labbe"
|
||
|
|
. 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 metan")
|
||
|
|
RESET res1, label("Reset")
|
||
|
|
|
||
|
|
DIALOG main, label("labbe 1.21 - Metan-based L'abbe Graph") tabtitle("Main")
|
||
|
|
BEGIN
|
||
|
|
TEXT tx_binary 10 5 330 ., ///
|
||
|
|
label("Vars for Counts a, b, c, d, in that order")
|
||
|
|
VARLIST vl_binary @ _ss @ ., ///
|
||
|
|
label("Vars for a, b, c, d")
|
||
|
|
|
||
|
|
/* end vars */
|
||
|
|
|
||
|
|
CHECKBOX cb_nowt 10 50 130 ., ///
|
||
|
|
label("Symbols not sized") ///
|
||
|
|
option("nowt")
|
||
|
|
|
||
|
|
CHECKBOX cb_percent 10 70 130 ., ///
|
||
|
|
label("Event Rates in %") ///
|
||
|
|
option("percent")
|
||
|
|
|
||
|
|
CHECKBOX cb_null 10 100 130 ., ///
|
||
|
|
label("Draw p1=p2 line") ///
|
||
|
|
option("null")
|
||
|
|
|
||
|
|
CHECKBOX cb_logit 10 130 130 ., ///
|
||
|
|
label("Use logit scale") ///
|
||
|
|
option("logit")
|
||
|
|
|
||
|
|
/* end switches */
|
||
|
|
|
||
|
|
GROUPBOX gb_lines 170 48 175 108, ///
|
||
|
|
label("Draw Lines at:")
|
||
|
|
|
||
|
|
CHECKBOX cb_or 180 +20 80 ., ///
|
||
|
|
label("OR: (>0)") ///
|
||
|
|
onclickon(program or_on) ///
|
||
|
|
onclickoff(script or_off)
|
||
|
|
EDIT ed_or 265 @ 70 ., ///
|
||
|
|
label("or") ///
|
||
|
|
option("or")
|
||
|
|
|
||
|
|
CHECKBOX cb_rd 180 +20 80 ., ///
|
||
|
|
label("RD: (-1,1)") ///
|
||
|
|
onclickon(script rd_on) ///
|
||
|
|
onclickoff(program rd_off)
|
||
|
|
EDIT ed_rd 265 @ 70 ., ///
|
||
|
|
label("rd") ///
|
||
|
|
option("rd")
|
||
|
|
|
||
|
|
CHECKBOX cb_rr 180 +20 80 ., ///
|
||
|
|
label("RR: (>0)") ///
|
||
|
|
onclickon(script rr_on) ///
|
||
|
|
onclickoff(program rr_off)
|
||
|
|
EDIT ed_rr 265 @ 70 ., ///
|
||
|
|
label("rr") ///
|
||
|
|
option("rr")
|
||
|
|
|
||
|
|
CHECKBOX cb_rrn 180 +20 80 ., ///
|
||
|
|
label("RRN: (>0)") ///
|
||
|
|
onclickon(script rrn_on) ///
|
||
|
|
onclickoff(program rrn_off)
|
||
|
|
EDIT ed_rrn 265 @ 70 ., ///
|
||
|
|
label("rrn") ///
|
||
|
|
option("rrn")
|
||
|
|
|
||
|
|
/* end sets */
|
||
|
|
|
||
|
|
GROUPBOX gb_gopts7 10 155 330 _ht1h, ///
|
||
|
|
label("Allowed Graph7 Options:")
|
||
|
|
EDIT ed_gopts7 15 175 320 ., ///
|
||
|
|
label("Graph7 Options")
|
||
|
|
|
||
|
|
/* end Graph7 opts */
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
INCLUDE ifin
|
||
|
|
INCLUDE weights_a
|
||
|
|
|
||
|
|
PROGRAM or_on
|
||
|
|
BEGIN
|
||
|
|
call main.ed_or.enable
|
||
|
|
if !(main.cb_rd | main.cb_rr | main.cb_rrn) {
|
||
|
|
call main.cb_logit.enable
|
||
|
|
}
|
||
|
|
END
|
||
|
|
|
||
|
|
SCRIPT or_off
|
||
|
|
BEGIN
|
||
|
|
main.ed_or.disable
|
||
|
|
main.cb_logit.setoff
|
||
|
|
main.cb_logit.disable
|
||
|
|
END
|
||
|
|
|
||
|
|
SCRIPT rd_on
|
||
|
|
BEGIN
|
||
|
|
main.ed_rd.enable
|
||
|
|
main.cb_logit.setoff
|
||
|
|
main.cb_logit.disable
|
||
|
|
END
|
||
|
|
|
||
|
|
PROGRAM rd_off
|
||
|
|
BEGIN
|
||
|
|
call main.ed_rd.disable
|
||
|
|
if main.cb_or & !(main.cb_rr | main.cb_rrn) {
|
||
|
|
call main.cb_logit.enable
|
||
|
|
}
|
||
|
|
END
|
||
|
|
|
||
|
|
SCRIPT rr_on
|
||
|
|
BEGIN
|
||
|
|
main.ed_rr.enable
|
||
|
|
main.cb_logit.setoff
|
||
|
|
main.cb_logit.disable
|
||
|
|
END
|
||
|
|
|
||
|
|
PROGRAM rr_off
|
||
|
|
BEGIN
|
||
|
|
call main.ed_rr.disable
|
||
|
|
if main.cb_or & !(main.cb_rd | main.cb_rrn) {
|
||
|
|
call main.cb_logit.enable
|
||
|
|
}
|
||
|
|
END
|
||
|
|
|
||
|
|
SCRIPT rrn_on
|
||
|
|
BEGIN
|
||
|
|
main.ed_rrn.enable
|
||
|
|
main.cb_logit.setoff
|
||
|
|
main.cb_logit.disable
|
||
|
|
END
|
||
|
|
|
||
|
|
PROGRAM rrn_off
|
||
|
|
BEGIN
|
||
|
|
call main.ed_rrn.disable
|
||
|
|
if main.cb_or & !(main.cb_rd | main.cb_rr) {
|
||
|
|
call main.cb_logit.enable
|
||
|
|
}
|
||
|
|
END
|
||
|
|
|
||
|
|
PROGRAM command
|
||
|
|
BEGIN
|
||
|
|
put "labbe "
|
||
|
|
varlist main.vl_binary
|
||
|
|
INCLUDE _weights_pr
|
||
|
|
INCLUDE _ifin_pr
|
||
|
|
beginoptions
|
||
|
|
option main.cb_nowt
|
||
|
|
option main.cb_percent
|
||
|
|
option main.cb_null
|
||
|
|
option main.cb_logit
|
||
|
|
optionarg main.ed_or
|
||
|
|
optionarg main.ed_rd
|
||
|
|
optionarg main.ed_rr
|
||
|
|
optionarg main.ed_rrn
|
||
|
|
put main.ed_gopts7
|
||
|
|
endoptions
|
||
|
|
END
|