options nodate pagesize=54 linesize=80;

/* Read in the input file   */

data ex0505;
* infile '../../../data/biostat/ex0505.dat';
infile 'C:\biostat\data\ex0505.dat';
input trt death trt_r death_r;
run;

/* Obtain crosstabs and fisher's exact test based on reversed trt and death (SAS default is to model
the probability in the "lowest" category) */

proc freq;
table trt_r*death_r;
exact fisher;
run;

quit;