** Surgery Survival (NKNW Section 8.2);

OPTIONS LINESIZE=75 NOCENTER NONUMBER NODATE;

* OPTIONS PAGESIZE = 20; /* for sizing output for LaTeX slides */

TITLE 'Surgery Survival';

PROC IMPORT 
  DATAFILE = 'C:\Documents and Settings\Mark Irwin\My Documents\Harvard\Courses\Stat 135\Autumn 2005\SAS\surgery.txt'
  DBMS = dlm OUT = surgery REPLACE;
  

RUN;

PROC CORR DATA=surgery;
  VAR logsurv blood prognostic enzyme liver;

RUN;

PROC REG DATA=surgery;

  VAR blood prognostic enzyme liver;

  Forward: MODEL logsurv = blood prognostic enzyme liver /
    SELECTION = FORWARD SLENTRY = 0.05;

  Backward: MODEL logsurv = blood prognostic enzyme liver /
    SELECTION = BACKWARD SLSTAY = 0.05;

  Stepwise: MODEL logsurv = blood prognostic enzyme liver /
    SELECTION = STEPWISE SLENTRY = 0.05 SLSTAY = 0.05;

  Cp: MODEL logsurv = blood prognostic enzyme liver /
    SELECTION = CP;

  Adjusted_Rsq: MODEL logsurv = blood prognostic enzyme liver /
    SELECTION = ADJRSQ;

  All: MODEL logsurv = blood prognostic enzyme liver;
RUN;

  






QUIT;