bme: Biostatistical Methods in Epidemiology

# Table 13.3
# death and census counts: Canada, Males, 1991

age.group <- c(0,1,seq(5,85,5))
deaths.all <- c(1432, 298, 197, 253, 913, 1256, 1502, 1683, 1849, 2248, 
            2904, 3712, 5765, 9073, 12553, 14144, 16081, 14004, 15557)
neoplasm.deaths <- c(5, 29, 36, 32, 50, 65, 114, 152, 230, 462, 846, 
                     1311, 2321, 3661, 4786, 4810, 4653, 3414, 2692)
circ.deaths <- c(20, 18, 5, 10, 22, 33, 59, 121, 240, 475, 785, 1227, 
                 1955, 3284, 4827, 5753, 6936, 6179, 7176)
injury.deaths <- c(38, 106, 91, 145, 704, 1018, 1002, 930, 806, 665, 
                   550, 444, 404, 411, 367, 337, 357, 330, 441)
pop <- c(201600, 774165, 978220, 962925, 958405, 985220, 1182575, 
         1237685, 1133670, 1042180, 824200, 663285, 608085, 571940, 
         492505, 358950, 252530, 140130, 86305)
males <- data.frame(age.group, deaths.all, neoplasm.deaths, circ.deaths, injury.deaths, pop)

save(males, file = "data/males.rda")