options ls=80;
libname fu '../../sdata';
data fu.t51;
infile '../../data/t51.dat';
input st A B censor;
/* log-cumulative hazard plot stratified by A */
filename gsasfile 'ex58a.gsf';
goptions reset=all gunit=pct border ftext=swissb htitle=6 htext=2.5
gaccess=gsasfile ROTATE=LANDSCAPE gsfmode=replace device=ps;
title1 'Log-cumulative hazard plot: A';
symbol1 c=black i=join v=triangle height=3;
symbol2 c=blue i=join v=star height=3;
proc lifetest  notable plot = (lls) method=pl;
        time st*censor(0);
        strata A;
run;