"x" <-
c(-1.21, -0.733, -0.407, -0.218, -0.262, -0.213, 1.61, -1.21,
-1.27, -0.168, 1.15, 0.527, 2.07, 0.478, -0.988, 0.109, -0.0865,
0.612, -0.374, -0.491)
"Y" <-
c(5.39, 1.805, 0.887, 2.436, 1.6069, 1.323, -2.22835, 3.59, 4.04,
-0.624, -3.61, -2.284, -2.183, 1.774, 4.466, -1.468, 1.2498,
1.036, 1.86, 2.192)
"N" <- 
20