* LIFETEST SAS
* xref:  Cox & Oakes table 1.1
* input:   6-MP   DATA A
* output:
* does: - demonstrate proc lifetest - KM estimates and plots
***************************************************;
options ls=80 nocenter errors=3;
title1 '';
filename INF '6-mp.dat';
***************************************************;
data A;
  infile INF firstobs=2;
  input time delta group;
  label
    time  = 'Follow-up time (wks)         ..'
    delta = 'Event: 0=censored 1=observed ..'
    group = 'Group: 0=control  1=drug     ..'
  ;
  list;
***************************************************;
proc lifetest data = A  method=KM  outs=B alpha=0.05 plots=(s, ls, lls);
  strata group;            
  time time * delta(0);
  title2 'proc lifetest output';
run;
***************************************************;
proc print data=B;
run;
/*
proc lifetest data = A  outs=B alpha=0.05 plots=(s,ls,lls) graphics;
  strata group;
  time time * delta(0);
  title2 'proc lifetest output with graphics option';
  symbol1 v=none color=black line=1;
  symbol2 v=none color=black line=2;
run;
*/