Here is the data Stat7_prob4.R :
y=c(18.90, 17, 20, 18.25, 20.07, 11.2, 22.12, 21.47, 34.70,
30.40, 16.50, 36.50, 21.50, 19.70, 20.30, 17.80, 14.39, 14.89,
17.80, 16.41, 23.54, 21.47, 16.59, 31.90, 29.40, 13.27, 23.90,
19.73, 13.90, 13.27, 13.77, 16.50)
x1=c(350, 350, 250, 351, 225, 440, 231, 262, 89.7, 96.9, 350,
85.3, 171, 258, 140, 302, 500, 440, 350, 318, 231, 360, 400, 96.9,
140, 460, 133.6, 318, 351, 351, 360, 350)
x2=c(4, 4, 1, 2, 1, 4, 2, 2, 2, 2,...