## Window for 2 by 2 Table Calculation

/****************************************************************/
/*          S A S   S A M P L E   L I B R A R Y                 */
/*                                                              */
/*    NAME: PROB2BY2                                            */
/*   TITLE: Window for 2 by 2 Table Calculation                 */
/* PRODUCT: STAT                                                */
/*  SYSTEM: ALL                                                 */
/*    KEYS: interactive, probability                            */
/*   PROCS: DATA                                                */
/*    DATA:                                                     */
/*                                                              */
/* SUPPORT: DMD                   UPDATE: 9/23/87 (DCS)         */
/*     REF:                                                     */
/*    MISC:                                                     */
/*                                                              */
/****************************************************************/
data _null_;
/* program to compute probabilities for the 2 by 2 table. */
window two color=red
rows=10 irow=10 group=inter
#1 @32 '2 by 2 TABLE' color = black
#2 @12 '+--------------------------------------------+' color = black
#3 @12 '|' color=black +1 n1 @35 '|' color=black
+1 n2 @57 '|' color=black +2 m1 color=cyan
#4 @12 '+--------------------------------------------+' color = black
#5 @12 '|' color=black +1 n3 @35 '|' color=black
+1 n4 @57 '|' color=black +2 m2 color=cyan
#6 @12 '+--------------------------------------------+' color = black
#7 @13 p1 color=yellow @37 p2 color = yellow @60 n color=blue
#8 @2 'Enter Odds Ratio'
+1 or 4.2 @25 'Prob(n11<=' +1 t1 4. ')=' prob 6.4;

do while(upcase(_cmd_) ne 'STOP');
display two ;