* STEP 1: Read in the data; 

PROC IMPORT DATAFILE = 'U:\SMOKEMod.xls'
     OUT = Smoke   DBMS = EXCEL REPLACE;
     SHEET = New;
     GETNAMES = YES;
RUN;


* STEP 2: Verify that you have the data;

proc print data=Smoke; 
run; 



* STEP 3: Kaplan-Meier estimation of survival curves and the log rank test;

ODS PDF FILE='U:\Survival.pdf';

   symbol1 c=blue; symbol2 c=orange;
   proc lifetest data=Smoke plots=(s);
      time Day_abs*Censored(1);
      strata Gender;
   run;

ODS PDF CLOSE;
RUN;