"women" <-
structure(list(height = c(58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 
70, 71, 72), weight = c(115, 117, 120, 123, 126, 129, 132, 135, 139, 142, 
146, 150, 154, 159, 164)), row.names = c("1", "2", "3", "4", "5", "6", 
"7", "8", "9", "10", "11", "12", "13", "14", "15"), class = "data.frame")