y <-
c(1.28682479818149, 0.99111388484709, 0.617435861498514, -0.471105689808945, 
-1.18148209395743, 0.81499608398862, -0.923401317102897, 0.481822756404342, 
-1.09823529971577, 1.07505266897986)