OPTIONS LS=72;




DATA MOTOR;
  INFILE "a:MOTOR.dat";
  INPUT OBS STATE $ DEATHS DRIVERS PEOPLE MILEAGE MAXTEMP FUEL;

PROC PRINT DATA=MOTOR;
  TITLE 'DATA FOR DRIVING FATALITIES STUDY';
RUN;


PROC REG DATA =MOTOR NOPRINT;
 MODEL DEATHS=DRIVERS PEOPLE MILEAGE MAXTEMP FUEL;
 OUTPUT OUT=RESID R=R RSTUDENT=RSTUDENT STUDENT=STUDENT RESIDUAL P=P;

PROC PRINT DATA=RESID;


PROC PLOT DATA=RESID;
 PLOT RSTUDENT*P;
 PLOT STUDENT*P;
 TITLE 'EXAMINING MODEL ASSUMPTIONS USING RESIDUAL PLOTS';
RUN;