/* Note 1: Females are coded '1'
 Males are coded '0' */

options ls=72;			
data sex;					 
input sex  r n @@;		 /*Note 2: Frequency counts are used */
cards;					
1 32 107 0 38 59  
;
Proc Logistic ; Model r/n=sex ;
output out=pred p=phat lower=lcl upper=ucl;
proc print;
run;