options pagesize=47 linesize=64;
data larynx; infile 'larynx.dat';
   input stage time age year status; run;
data stages14;
   set larynx;
   if stage=2 | stage=3 then delete;
   fs=0;
   if status=0 and time<4.4 then fs=1;
   if status=0 and time>7.2 then fs=1;
   if status=1 and time<1.0 then fs=1;
   if status=1 and time>4.0 then fs=1;
run;
%include 'l04m.sas';
title1 'Larynx Example, Stages 1 and 4';
%fulltest(stages14,time,status,stage);
title1 'Larynx Example, Artificial Variable';
%fulltest(stages14,time,status,fs);
title1 'Test of treatment for tumors in rats';
data rats; infile 'rats.dat';
   input time status ttt litter;
run;
proc lifetest data=rats notable;
   time time*status(0) ; strata litter; test ttt;
run;
title1 'Larynx Cancer Surv. by Stage';
proc lifetest data=larynx nocens notable;
   time time*status(0) ; strata stage;
run;
title1 'Larynx cancer example, stage used as ordered';
proc lifetest data=larynx nocens notable;
   time time*status(0) ; test stage;
run;