/* (Taken from Table 7.2 of Dobson, Annette J. (2001), 
"An introduction
to generalized linear models", Chapman & Hall Ltd (London; New York)).


The data tabulates the number of beetles that died after five hours
exposure to a different 
number of concentrations of carbon disulfide
(doses).


*/

options ls=70 ps=500;

data beetle;
 input logdose number died;
 dose=exp(logdose); 
 lived=number-died;
 cards;
1.691	59	6
1.724	60	13
1.755	62	18
1.784	56	28
1.811	63	52
1.837	59	53
1.861	62	61
1.884	60	60
;

proc genmod;
 model died/number=logdose / dist=bin link=logit lrci type3 residuals;
run;

proc genmod;
 model died/number=logdose / dist=bin link=probit;
run;

proc genmod;
 model died/number=logdose / dist=bin link=cloglog;
run;

proc genmod;
 model lived/number=logdose / dist=bin link=cloglog;
run;