cdc.samp <-
structure(list(genhlth = structure(c(2L, 1L, 1L, 3L, 2L, 2L, 
1L, 2L, 3L, 2L, 2L, 3L, 3L, 4L, 3L, 2L, 4L, 3L, 3L, 3L, 4L, 3L, 
2L, 3L, 3L, 1L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 1L, 2L, 4L, 1L, 1L, 
3L, 2L, 4L, 3L, 1L, 2L, 1L, 3L, 2L, 2L, 2L, 1L, 4L, 1L, 5L, 1L, 
1L, 3L, 2L, 4L, 1L, 2L), .Label = c("excellent", "very good", 
"good", "fair", "poor"), class = "factor"), exerany = c(1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 
1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 
1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1), hlthplan = c(1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 
1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1), smoke100 = c(1, 
0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 
1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 
1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0), height = c(75, 
72, 69, 66, 63, 64, 72, 60, 65, 70, 67, 65, 73, 66, 65, 64, 63, 
69, 62, 73, 62, 66, 74, 72, 68, 70, 67, 68, 62, 63, 68, 73, 71, 
64, 65, 64, 69, 63, 67, 71, 63, 68, 62, 66, 72, 70, 62, 62, 66, 
72, 60, 74, 72, 70, 65, 61, 72, 62, 73, 69), weight = c(265L, 
150L, 137L, 159L, 145L, 125L, 175L, 104L, 140L, 188L, 170L, 120L, 
290L, 170L, 120L, 140L, 164L, 170L, 170L, 198L, 130L, 300L, 192L, 
175L, 195L, 155L, 400L, 145L, 145L, 165L, 140L, 220L, 200L, 120L, 
180L, 135L, 170L, 151L, 180L, 195L, 120L, 175L, 115L, 160L, 200L, 
154L, 210L, 135L, 148L, 230L, 192L, 200L, 210L, 199L, 160L, 132L, 
165L, 160L, 175L, 165L), wtdesire = c(225L, 150L, 150L, 125L, 
125L, 120L, 175L, 104L, 140L, 170L, 155L, 130L, 220L, 160L, 120L, 
110L, 144L, 170L, 150L, 190L, 130L, 150L, 185L, 175L, 170L, 155L, 
200L, 140L, 120L, 140L, 140L, 200L, 185L, 110L, 140L, 135L, 150L, 
135L, 140L, 180L, 120L, 175L, 115L, 140L, 188L, 154L, 180L, 135L, 
140L, 225L, 147L, 200L, 190L, 180L, 140L, 108L, 160L, 140L, 190L, 
165L), age = c(45L, 24L, 47L, 26L, 33L, 28L, 34L, 42L, 50L, 57L, 
57L, 19L, 42L, 43L, 60L, 34L, 48L, 37L, 74L, 52L, 61L, 68L, 24L, 
24L, 59L, 49L, 37L, 47L, 56L, 74L, 28L, 24L, 68L, 33L, 43L, 49L, 
37L, 51L, 52L, 50L, 47L, 38L, 43L, 35L, 50L, 31L, 77L, 69L, 23L, 
25L, 48L, 51L, 64L, 35L, 30L, 55L, 19L, 32L, 28L, 40L), gender = structure(c(1L, 
1L, 1L, 2L, 2L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 2L, 
1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 
1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L), .Label = c("m", 
"f"), class = "factor")), row.names = c("4138", "490", "3984", 
"10629", "9346", "4396", "12298", "11884", "4566", "7417", "1619", 
"2143", "9195", "8198", "13777", "13737", "18747", "5094", "11595", 
"16419", "9355", "2447", "3177", "19287", "3617", "9889", "19319", 
"11251", "707", "4575", "10436", "4448", "6781", "8511", "1294", 
"213", "19383", "8045", "19953", "4240", "3748", "14976", "3146", 
"5944", "2431", "1099", "14811", "18267", "6950", "475", "11376", 
"3886", "14307", "7557", "3078", "4242", "7986", "12219", "16285", 
"5225"), class = "data.frame")