data cu;
  infile 'c:\philip\stat505\cu.txt' firstobs=2;
  input cu cens $ group ;
  
  upper = cu;
  if cens='TRUE' then lower = 0;
    else lower = cu;

  flip = 5 - cu;
  if cens='TRUE' then ncens = 1;
    else ncens = 0;

proc lifereg;
  class group;
  model (lower,upper) = group /d=normal;
  title 'LRT of equal group means';

proc lifetest;
  time flip*ncens(1);
  strata group;
  title 'Tests of equality across strata';
  run;

  run;