* Agresti (2007) Problems 3.11 - 3.12 ;
options ls=80;
data wafers;
 input treat $ thick $ imperfec @@;
 if treat='A'   then x=0; else x=1;
 if thick='low' then z=0; else z=1;
 datalines;
A low  8  A low  7  A low  6  A low  6  A low  3
A high 4  A high 7  A high 2  A high 3  A high 4
B low  9  B low  9  B low  8  B low  14 B low  8
B high 13 B high 11 B high 5  B high 7  B high 6
;