* SAS code to fit A. tenuiremis data from Table 9.2;
 options linesize=70;

 data azinph;
 input sex $ dose y @@;
 cards;
 f 0 363   f 10 157   f 40 219
 m 0 103   m 10  99   m 40  83

 proc freq;
      weight y;
      table dose*sex / nocol nopct expected chisq;
 run;