11/19 part1

data afterlife;
input race belief count @@;
datalines;
1 1 1339 1 0 300
2 1 260 2 0 55
3 1 88 3 0 22
;

proc genmod data=afterlife descending;
class race belief;
model count =race belief /dist=poi link=log;
run;

data test;
* table 7.3;
input alcohol $ cigarette $ marijuana$ count;
datalines;
yes yes yes 911
yes yes no 538
yes no yes 44
yes no no 456
no yes yes 3
no yes no 43
yes no yes 2
yes no no 279
;
run;


proc genmod data=test descending;
class alcohol cigarette marijuana;
model count = alcohol cigarette marijuana alcohol*cigarette alcohol*marijuana cigarette*marijuana / dist=poi link=log ;
run;

proc genmod data=test descending;
class alcohol(ref="no") cigarette(ref="no") marijuana(ref="no")/param=ref;
model count = alcohol cigarette marijuana alcohol*cigarette alcohol*marijuana cigarette*marijuana / dist=poi link=log ;
run;