"draper" <-
structure(list(x=c(1.3, 1.3, 2.0, 2.0, 2.7, 3.3, 3.3, 3.7, 3.7, 4.0,
4.0, 4.0, 4.7, 4.7, 4.7, 5.0, 5.3, 5.3, 5.3, 5.7, 6.0, 6.0, 6.3, 6.7),
y=c(2.3, 1.8, 2.8, 1.5, 2.2, 3.8, 1.8, 3.7, 1.7, 2.8, 2.8, 2.2, 5.4,
3.2, 1.9, 1.8, 3.5, 2.8, 2.1, 3.4, 3.2, 3.0, 3.0, 5.9)))