"cancer" <-
structure(list(stomach = c(124, 42, 25, 45, 412, 51, 1112, 46, 
103, 876, 146, 340, 396), bronchus = c(81, 461, 20, 450, 246, 
166, 63, 64, 155, 859, 151, 166, 37, 223, 138, 72, 245), colon = c(248, 
377, 189, 1843, 180, 537, 519, 455, 406, 365, 942, 776, 372, 
163, 101, 20, 283), ovary = c(1234, 89, 201, 356, 2970, 456), 
    breast = c(1235, 24, 1581, 1166, 40, 727, 3808, 791, 1804, 
    3460, 719)), .Names = c("stomach", "bronchus", "colon", "ovary", 
"breast"))