goptions reset=all; 
title "Germination Example"; 

Data seeds; Input Germ $ 1-3 n @; Y=(Germ="Yes");
  If Germ=" " then Y=.;
  do i=1 to n; input temp @; output; end;
cards;
Yes 9            64 67 70 71  73  77 78 82 85
No  6    50 58 63   67      72  75
   23  46 48 50 52 54 56 58 60 62 64 66 68
       70 72 74 76 78 80 82 84 86 88 90
PROC LOGISTIC data=seeds order=data;
  model germ=temp / itprint ctable pprob=.6923;
  output out=out1 predicted=p xbeta=logit;
proc plot; plot p*temp Y*temp=y/vpos=20 overlay;
proc sort data=out1; by temp; 
proc gplot; plot p*temp Y*temp/overlay;
symbol1 v=none i=smooth10 w=3 c=red; 
symbol2 v=dot h=1.5 i=none w=1 c=blue; 
run;