Firstchi <-
structure(list(age = c(30, 18, 35, 22, 23, 22, 36, 24, 23, 28, 
19, 23, 25, 24, 33, 21, 24, 19, 33, 23, 19, 32, 21, 18, 36, 21, 
25, 17, 21, 24, 39, 22, 23, 18, 22, 28, 18, 15, 25, 21, 23, 26, 
38, 24, 20, 36, 27, 21, 28, 26, 22, 28, 33, 18, 17, 21, 15, 20, 
16, 21, 23, 15, 20, 38, 16, 24, 42, 22, 24, 24, 20, 17, 26, 39, 
22, 21, 28, 20, 29, 14, 25, 20, 19, 17, 21, 24, 26)), .Names = "age", row.names = c(NA, 
-87L), class = "data.frame")