Data a1; 
   infile 'U:\.www\datasets512\Ch08ta01.dat';
   input blood prog enz liver surv;
run;

options nocenter;
Proc print data=a1; 
run;

*Computing the log survival variable;
data a1; 
   set a1;
   lsurv=log(surv);
Proc print data=a1; 
run;

* There are more options in the notes.  The b option
 gives the parameter estimates in the table;
proc reg data=a1;
   model lsurv=blood prog enz liver/
   selection=rsquare cp b;
run;