/* x4_3.sas */
/* Purpose:  */

title1 'Example 4.3.';

data gloed;
input aar ndefekt ntotal;
antal=ndefekt;
defekt=0;
output;
antal=ntotal-ndefekt;
defekt=1;
output;
cards;
63 14 52
53 11 34
43 10 53
33 13 47
23  4 56
13  4 46
3   0  7
;

proc print;
title2 'List of data.';

proc catmod;
weight antal;
direct aar;
model defekt=aar / freq ml nogls covb corrb;
title2 'Analysis of logistisc model using proc catmod.';

run;