options nodate nonumber ps=55 ls=76;

data speed;
input track $1-36 banking distance numraces topqual toprace;
cards;
ATLANTA MOTOR SPEEDWAY               24 1.54 62 197.478 163.633
BRISTOL MOTOR SPEEDWAY               36 0.53 62 126.370 101.074
CALIFORNIA SPEEDWAY                  14 2.00  6 187.432 155.012
CHICAGOLAND SPEEDWAY                 18 1.50  2 183.717 121.200
DARLINGTON RACEWAY                   24 1.37 62 173.797 139.958
DAYTONA INTERNATIONAL SPEEDWAY       31 2.50 63 210.364 177.602
DOVER INTERNATIONAL SPEEDWAY         24 1.00 62 159.964 132.719
HOMESTEAD-MIAMI SPEEDWAY              6 1.50  4 156.440 140.335
INDIANAPOLIS MOTOR SPEEDWAY          12 2.50  9 181.072 155.912
KANSAS SPEEDWAY                      15 1.50  2 176.449 110.576
LAS VEGAS MOTOR SPEEDWAY             12 1.50  5 172.563 146.530
LOWES MOTOR SPEEDWAY                 24 1.50 62 186.034 160.306
MARTINSVILLE SPEEDWAY                12 0.53 62  95.371  82.223
MICHIGAN INTERNATIONAL SPEEDWAY      18 2.00 61 191.149 173.997
NEW HAMPSHIRE INTERNATIONAL SPEEDWAY 12 1.06 16 132.089 117.134
NORTH CAROLINA SPEEDWAY              23 1.02 63 158.035 131.103
PHOENIX INTERNATIONAL RACEWAY        10 1.00 15 134.718 118.132
POCONO RACEWAY                        9 2.50 50 172.391 144.892
RICHMOND INTERNATIONAL RACEWAY       14 0.75 62 126.499 108.707
TALLADEGA SUPERSPEEDWAY              33 2.66 62 212.809 188.354
TEXAS MOTOR SPEEDWAY                 24 1.50  6 192.137 144.276
;

proc print;

proc glm;
model topqual = banking distance numraces banking*distance
  banking*banking distance*distance;
run;

proc glm;
model topqual = banking distance 
  banking*banking distance*distance;
output out=raceout p=yhat r=e;
run;

proc plot;
plot e*yhat / vref=0;
run;

proc univariate plot normal;
var e;
run;

proc chart;
vbar e;
run;
quit;