options nodate nonumber ps=59 ls=76;
title 'SPACE SHUTTLE O-RING DATA -- LOGISTIC REGRESSION';
title2 "DALAL ET AL, 'RISK ANALYSIS OF THE SPACE SHUTTLE...'";
title3 'JASA VOL.84  NO.408 pp 945-957; DECEMBER 1989'; 
/* Source: JASA, DEC 1989, pp 945-957 */
data one;
input temp fail @@;
if fail >=1 then fail1=1; else fail1=0;
cards;
53 3 57 1 58 1 63 1 66 0 67 0 67 0 67 0 68 0 69 0
70 0 70 0 70 1 70 1 72 0 73 0 75 0 75 2 76 0 76 0
78 0 79 0 80 0 81 0
;


proc reg;
where fail1=1;
model fail=temp;
run;

data two;
do temp=25 to 100;
fail1=.;
fail=.;
output;
end;
run;

data three;
set one two;

proc sort; by temp;


proc genmod descending;
model fail1 = temp / dist=bin link=logit cl id=temp;
run;


run;

quit;