options nodate pagesize=54 linesize=80;

/* Read in the input file   */

data ex0506;
* infile '../../../data/biostat/ex0506.dat';
infile 'C:\biostat\data\ex0506.dat';
input selfrep surgical selfrep_r surgical_r;
run;

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

proc freq;
table selfrep_r*surgical_r;
exact mcnemar;
run;

quit;