options pagesize=60 linesize=79 nodate nonumber;
libname fu '../../sdata';
data fu.hpa;
infile '../../data/hpa.dat';
input survt censor group;
data w;
	set fu.hpa;
/* pdf */
filename x2 'form1.pdf';
goptions reset = all gunit = pct border ftext=swissb htitle=6 htext=2.5
gsfname=x2 ROTATE=LANDSCAPE gsfmode=replace device=pdf;
symbol1 c=black i=join l=1 v=triangle height=3;
symbol2 c=blue i=join l=2 v=star height=3;
proc lifetest plots=(s) notable;
	title 'Survival by staining group';
	time survt*censor(0);
	strata  group;
/* gif */
filename x3 'form1.gif';
goptions reset = all gunit = pct border ftext=swissb htitle=6 htext=2.5
gsfname=x3 ROTATE=LANDSCAPE gsfmode=replace device=gif;
symbol1 c=black i=join l=1 v=triangle height=3;
symbol2 c=blue i=join l=2 v=star height=3;
proc lifetest plots=(s) notable;
	title 'Survival by staining group';
	time survt*censor(0);
	strata  group;
/* jpeg */
filename x4 'form1.jpeg';
goptions reset = all gunit = pct border ftext=swissb htitle=6 htext=2.5
gsfname=x4 ROTATE=LANDSCAPE gsfmode=replace device=jpeg;
symbol1 c=black i=join l=1 v=triangle height=3;
symbol2 c=blue i=join l=2 v=star height=3;
proc lifetest plots=(s) notable;
	title 'Survival by staining group';
	time survt*censor(0);
	strata  group;
/* bmp */
filename x5 'form1.bmp';
goptions reset = all gunit = pct border ftext=swissb htitle=6 htext=2.5
gsfname=x5 ROTATE=LANDSCAPE gsfmode=replace device=bmp;
symbol1 c=black i=join l=1 v=triangle height=3;
symbol2 c=blue i=join l=2 v=star height=3;
proc lifetest plots=(s) notable;
	title 'Survival by staining group';
	time survt*censor(0);
	strata  group;
/* postscript */
filename x1 'form1.ps';
goptions reset = all gunit = pct border ftext=swissb htitle=6 htext=2.5
gsfname=x1 ROTATE=LANDSCAPE gsfmode=replace device=ps;
symbol1 c=black i=join l=1 v=triangle height=3;
symbol2 c=blue i=join l=2 v=star height=3;
proc lifetest plots=(s) notable;
	title 'Survival by staining group';
	time survt*censor(0);
	strata  group;
run;