options pagesize=150 linesize=64;
filename grafout 'l02.ps';
goptions device=pslmono gsfname=grafout gsfmode=append;
data larynx; infile 'larynx.dat';
   input stage time age year status; run;
/****************************************************/
/* Kaplan--Meier curve for the combined larynx data */
/****************************************************/
%include 'l02m.sas';
title1 'Larynx Tumor survival data';
proc lifetest data=larynx plots=(s) nocens graphics;
   time time*status(0) ; run;
title1 'Larynx survival with confidence limits, raw scale';
%survci(larynx,time,status,normal);