options nodate nonumber ps=54 ls=80;
goptions device=ps gaccess=gsasfile gend='0a'x gsflen=72 vsize=3.2 hsize=4.5;

data ex0901;
* infile '../../../data/biostat/ex0901.dat';
infile 'C..\biostat\data\ex0901.dat';
input regimen time censor;
run;
 
/*  Obtain Kaplan-Weier estimates of survival functions and perform Log-Rank Test
   to compare them  */
proc print;

proc lifetest plots=(s) graphics method=km;
time time*censor(1);
strata regimen;
symbol1 c=blk v=circle;
symbol2 c=rbk v=square;
filename gsasfile 'ex0901.ps';
run;

quit;