/* Homicide data */

options ls=70 ps=500;

data new;
 input white black other resp;
 cards;
1070 119 55 0
  60  16  5 1
  14  12  1 2
   4   7  0 3
   0   3  1 4
   0   2  0 5
   1   0  0 6
;

data new;
 set new;
 count=white;
 race=0;
 output;
 count=black;
 race=1;
 output;
 drop white black other;

 data new2;
  set new;
  do i=1 to count;
   output;
  end;
  drop i;

proc genmod data=new2;
 model resp=race / dist=poisson link=log;
run;

proc genmod data=new2;
 model resp=race / dist=negbin link=log;
run;

proc genmod;
 model resp=race / dist=poisson link=log scale=pearson;
run;