OPTIONS LS=72;


filename MOTOR 'a:motor.dat';


DATA MOTOR;
  INFILE MOTOR;
  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;

PROC UNIVARIATE DATA=RESID NORMAL PLOT;
 VAR R;
 TITLE 'EXAMINING MODEL ASSUMPTIONS';
RUN;