(defun source () (format t
  "Source: Chambers etal, Graphical Methods for Data Analysis (1983). p. 377
          ~%"))
(def data-names '("Tar[y]" "Temp" "Spd" "Spd^2"))
(def data (transpose (split-list '(
60.0 54.4 2400 5760 
61.0 56.0 2450 6003
65.0 58.5 2450 6003
30.5 43.0 2500 6250
63.5 58.0 2500 6250 
65.0 59.0 2500 6250 
44.0 62.5 2700 7290
52.0 65.5 2700 7290
54.5 68.0 2700 7290
30.0 45.0 2750 7563
26.0 45.5 2775 7701
23.0 48.0 2800 7840
54.0 63.0 2800 7840
36.0 58.5 2900 8410
53.5 64.5 2900 8410
57.0 66.0 3000 9000
33.5 57.0 3075 9456
34.0 57.5 3100 9610
44.0 64.0 3150 9923
33.0 57.0 3200 10240
39.0 64.0 3200 10240
53.0 69.0 3200 10240
38.5 68.0 3225 10401
39.5 62.0 3250 10563
36.0 64.5 3250 10563
8.5 48.0 3250 10563
30.0 60.0 3500 12250
29.0 59.0 3500 12250
26.5 58.0 3500 12250
24.5 58.0 3600 12960
26.5 61.0 3900 15210
) 4)))
(source)
(make-reg :data data :data-names data-names :menu "Tar")