programs to help with 6.7

data one;
options nodate nonumber ps=2000;
input pcn $ delay $ resp $ count;
datalines;
.125  0   cured 0
.125  0   died  6
.125  1.5 cured 0
.125  1.5 died  5
.25   0   cured 3
.25   0   died  3
.25   1.5 cured 0
.25   1.5 died  6
.5    0   cured 6
.5    0   died  0
.5    1.5 cured 2
.5    1.5 died  4
1.0   0   cured 5
1.0   0   died  1
1.0   1.5 cured 6
1.0   1.5 died  0
4.0   0   cured 2
4.0   0   died  0
4.0   1.5 cured 5
4.0   1.5 died  0
proc logistic;freq count;class pcn delay;
  model resp=pcn delay / aggregate=(pcn delay) scale=none;
run;

proc genmod descending;freq count;class pcn delay;
  model resp=pcn delay / type1 type3 dist=bin aggregate=(pcn delay);
run;

proc freq;weight count;
  tables pcn*delay*resp /cmh noprint;