/* From A. J. Dobson's book p. 109 and  p.113, saved as Dobson.sas in SAS/Logistic  */

option ls=76 nocenter;

data ch9;input gtype $ n yes;
event='yes';count=yes;output;
event='no';count=n-yes;output;
cards;
AA 2293 255
AG 4347 564
GG 2140 298  
PROC PRINT;
PROC FREQ;
TABLE gtype*event/norow nocol nopercent expected chisq;
WEIGHT count;