"ex9_3.gss1990.original" <-
structure(list(y = as.integer(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 
10, 12, 13, 14, 15, 16, 17, 18, 20, 22, 23, 24, 25, 27, 30, 50, 
60)), Male = as.integer(c(65, 11, 13, 14, 26, 13, 15, 7, 21, 
2, 24, 6, 3, 0, 3, 3, 0, 0, 7, 0, 0, 1, 1, 0, 3, 1, 1)), Female = as.integer(c(128, 
17, 23, 16, 19, 17, 17, 3, 15, 2, 13, 10, 3, 1, 10, 1, 1, 1, 
6, 1, 1, 0, 3, 1, 1, 0, 0))), .Names = c("y", "Male", "Female"
), class = "data.frame", row.names = c("1", "2", "3", "4", "5", 
"6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", 
"17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27"
))