libname a 'c:\friday\logistic';
data a.UIS;
  infile "c:\friday\logistic\uis.dat";
  input ID AGE BECK IVHX NDRUGTX RACE TREAT SITE DFREE;
  if IVHX = 1 then do;
    IVHX_2 = 0;
    IVHX_3 = 0;
    end;
  else if IVHX = 2 then do;
    IVHX_2 = 1;
    IVHX_3 = 0;
    end;
  else do;
    IVHX_2 = 0;
    IVHX_3 = 1;
    end;
  NDRUGFP1 = ((NDRUGTX+1)/10)^-1;
  NDRUGFP2 = NDRUGFP1*log((NDRUGTX+1)/10);

/* SAS models PR(STA=0) unless the "DESCENDING" option is specified */

title 'Seclected Tables from Chapter 4';
proc logistic data=a.UIS;
  model DFREE (descending) = AGE NDRUGTX IVHX_2 IVHX_3 RACE TREAT SITE;
title2 'Table 4.2';

proc logistic data=a.UIS;
  model DFREE (descending) = AGE NDRUGFP1 NDRUGFP2 IVHX_2 IVHX_3 RACE TREAT SITE;
title2 'Table 4.7';

proc logistic data=a.UIS;
  model DFREE (descending) = 
   AGE NDRUGFP1 NDRUGFP2 IVHX_2 IVHX_3 RACE TREAT SITE AGE*NDRUGFP1 RACE*SITE;
title2 'Table 4.9';

proc logistic data=a.UIS;
  model DFREE (descending) = 
   AGE BECK NDRUGTX IVHX_2 IVHX_3 RACE TREAT SITE / selection=score best=3;
title2 'Table 4.15';

run;