# Data for Problem 2:

Y <- structure(c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
2.0,5.4,6.9,-1.8,1.9,7.2,4.0,1.3,0.2,6.7,2.9,3.8,2.6,3.7,9.1,
4.3,5.0,1.6,8.9,6.4,0.0,3.3,5.9,-1.0,2.8,3.9,5.9,7.4,-1.8,7.2,
-3.0,2.8,4.3,4.2,0.9,-1.0,0.1,0.8,-3.6,-0.1,0.2,1.2,0.2,-1.2,0.3,
1.2,1.1,-3.1,-1.7,3.8,-1.2,1.7,3.6,1.8,2.0,2.2,-3.2,-3.1,-0.1,2.0,
0.1,-0.9,3.2,-1.2,5.0,-1.4,6.8,0.2,4.0,0.0,1.9,1.3,-6.0,0.3,2.2,
-0.7,0.4,-2.0), .Dim = c(78, 2), .Dimnames = list(NULL, c("training", "improvement")))

# To see the data, type:
print(Y)