options ls=80;
libname fu '../../sdata';
data w;
	set fu.t51;
/* log-cumulative hazard plot stratified by B */
filename gsasfile 'ex58b.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: B';
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 B;
run;