# Data for Problem 1: 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,2,2,2,2,2,2,2,2,2,2, 2,2,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,3,3,3,3,3, 6.1,0.3,6.4,-2.2,2.1,8.2,9.9,3.2,8.9,1.3,13.2,17.9,-0.4,3.9,-8.0,18.7,18.7,8.8,10.2,11.3, -0.9,4.5,-15.5,11.2,10.4,-0.2,-5.5,-0.9,6.3,-5.3,14.5,9.7,-0.4,4.1,0.7,-0.8,-2.0,18.4,-6.7, 22.5,-16.6,10.8,17.0,3.8,9.7,-5.0,-4.0,8.0,8.8,-5.9,-1.1,13.1,-16.0,6.9,5.9,6.4,-8.2,-0.3, 8.6,5.5,9.4,14.9,-5.8,0.3,1.4,1.3,-3.0,-0.2,-2.2), .Dim = c(69, 2), .Dimnames = list(NULL, c("prompt.type", "improvement"))) # To see the data, type: print(Y)