data myel;
   input dur status treat renal;
   cards;
   8       1        1        1
 180       1        2        0
 632       1        2        0
 852       0        1        0
  52       1        1        1
2240       0        2        0
 220       1        1        0
  63       1        1        1
 195       1        2        0
  76       1        2        0
  70       1        2        0
   8       1        1        0
  13       1        2        1
1990       0        2        0
1976       0        1        0
  18       1        2        1
 700       1        2        0
1296       0        1        0
1460       0        1        0
 210       1        2        0
  63       1        1        1
1328       0        1        0
1296       1        2        0
 365       0        1        0
  23       1        2        1
run;

proc lifetest data=myel;
   time dur*status(0);
run;

proc lifetest data=myel plots=(s) graphics;
   time dur*status(0);
   symbol1 v=none;
run;

proc lifetest data=myel;
   time dur*status(0);
   strata treat;
run;

proc lifetest data=myel;
   time dur*status(0);
   strata treat renal;
run;

proc lifetest data=myel;
   time dur*status(0);
   test treat;
run;


/* the following only work in SAS ver. 9, not SAS 8 */

proc lifetest data=myel;
     time dur*status(0);
     strata treat/test=all;      /* in fleming you can set one or two parameter like: fleming(0.8, 0.2) */


proc lifetest data=myel;
   time dur*status(0);
   survival confband=HW conftype=loglog out=b;
run;

proc print data=b;
run;

/* other conftype: log asinsqrt logit linear */
/* other confband: EP, ALL     (EP for Equal Precision. HW for Hall-Wellner) */
/* To get confidence band on an interval, use: bandmax=   bandmin=    */