/*  SAS code for computing exact 
    binomial tests and McNemar's
    test for matched pairs */

data set1;
  input case control y;
  datalines;
  1 1  9
  0 1 16
  1 0 37
  0 0 82
  run;

proc freq data=set1;
  table case*control ;
  exact mcnem;
  weight y;
  run;