inst/extdata/MortalityTables_Germany_Census.R

In kainhofer/r-mortality-tables: A Framework for Various Types of Mortality / Life Tables

stopifnot(require(methods), require(utils), require(MortalityTables))


###############################################################################
### Volkszählungen Deutschland
###############################################################################


de.vz.dataDR = utils::read.csv(system.file("extdata", "Germany_Census_DeutschesReich.csv", package = "MortalityTables"), skip = 3);
de.vz.dataBRD = utils::read.csv(system.file("extdata", "Germany_Census_BRD.csv", package = "MortalityTables"), skip = 3);

censtable = function(data, name, qslot, baseYear = 1900, sex = "m") {
    qx = data[names(data) == qslot];
    ix = complete.cases(qx);
    mortalityTable.period(name = name, ages = data$Alter[ix], deathProbs = qx[ix,], baseYear = baseYear,
      data = list(
          dim = list(sex = sex, collar = "Gesamtbevölkerung", type = "Volkssterbetafel Deutschland", data = "official", year = baseYear, table = substr(name, 1, nchar(name) - 2))
      )
  )
}

mort.DE.census.1871.81.male = censtable(de.vz.dataDR, name = "ADSt 1871/81 M",   baseYear = 1869, qslot = "ADSt.1871.81.M", sex = "m")
mort.DE.census.1881.90.male = censtable(de.vz.dataDR, name = "ADSt 1881/90 M",   baseYear = 1869, qslot = "ADSt.1881.90.M", sex = "m")
mort.DE.census.1891.1900.male = censtable(de.vz.dataDR, name = "ADSt 1891/1900 M",   baseYear = 1869, qslot = "ADSt.1891.1900.M", sex = "m")
mort.DE.census.1901.10.male = censtable(de.vz.dataDR, name = "ADSt 1901/10 M",   baseYear = 1869, qslot = "ADSt.1901.10.M", sex = "m")
mort.DE.census.1910.11.male = censtable(de.vz.dataDR, name = "ADSt 1910/11 M",   baseYear = 1869, qslot = "ADSt.1910.11.M", sex = "m")
mort.DE.census.1924.26.male = censtable(de.vz.dataDR, name = "ADSt 1924/26 M",   baseYear = 1869, qslot = "ADSt.1924.26.M", sex = "m")
mort.DE.census.1932.34.male = censtable(de.vz.dataDR, name = "ADSt 1932/34 M",   baseYear = 1869, qslot = "ADSt.1932.34.M", sex = "m")
mort.DE.census.1949.51.male = censtable(de.vz.dataBRD, name = "ADSt 1949/51 M",   baseYear = 1869, qslot = "ADSt.1949.51.M", sex = "m")
mort.DE.census.1960.62.male = censtable(de.vz.dataBRD, name = "ADSt 1960/62 M",   baseYear = 1869, qslot = "ADSt.1960.62.M", sex = "m")
mort.DE.census.1970.72.male = censtable(de.vz.dataBRD, name = "ADSt 1970/72 M",   baseYear = 1869, qslot = "ADSt.1970.72.M", sex = "m")
mort.DE.census.1986.88.male = censtable(de.vz.dataBRD, name = "ADSt 1986/88 M",   baseYear = 1869, qslot = "ADSt.1986.88.M", sex = "m")

mort.DE.census.1871.81.female = censtable(de.vz.dataDR, name = "ADSt 1871/81 F",   baseYear = 1869, qslot = "ADSt.1871.81.F", sex = "w")
mort.DE.census.1881.90.female = censtable(de.vz.dataDR, name = "ADSt 1881/90 F",   baseYear = 1869, qslot = "ADSt.1881.90.F", sex = "w")
mort.DE.census.1891.1900.female = censtable(de.vz.dataDR, name = "ADSt 1891/1900 F",   baseYear = 1869, qslot = "ADSt.1891.1900.F", sex = "w")
mort.DE.census.1901.10.female = censtable(de.vz.dataDR, name = "ADSt 1901/10 F",   baseYear = 1869, qslot = "ADSt.1901.10.F", sex = "w")
mort.DE.census.1910.11.female = censtable(de.vz.dataDR, name = "ADSt 1910/11 F",   baseYear = 1869, qslot = "ADSt.1910.11.F", sex = "w")
mort.DE.census.1924.26.female = censtable(de.vz.dataDR, name = "ADSt 1924/26 F",   baseYear = 1869, qslot = "ADSt.1924.26.F", sex = "w")
mort.DE.census.1932.34.female = censtable(de.vz.dataDR, name = "ADSt 1932/34 F",   baseYear = 1869, qslot = "ADSt.1932.34.F", sex = "w")
mort.DE.census.1949.51.female = censtable(de.vz.dataBRD, name = "ADSt 1949/51 F",   baseYear = 1869, qslot = "ADSt.1949.51.F", sex = "w")
mort.DE.census.1960.62.female = censtable(de.vz.dataBRD, name = "ADSt 1960/62 F",   baseYear = 1869, qslot = "ADSt.1960.62.F", sex = "w")
mort.DE.census.1970.72.female = censtable(de.vz.dataBRD, name = "ADSt 1970/72 F",   baseYear = 1869, qslot = "ADSt.1970.72.F", sex = "w")
mort.DE.census.1986.88.female = censtable(de.vz.dataBRD, name = "ADSt 1986/88 F",   baseYear = 1869, qslot = "ADSt.1986.88.F", sex = "w")

mort.DE.census = array(
  data = c(mortalityTable.NA),
  dim = c(2, 11),
  dimnames = list(Geschlecht = c("m", "w"), Jahr = c("1871/81", "1881/90", "1891/1900", "1901/10", "1910/11","1924/26","1932/34","1949/51", "1960/62", "1970/72", "1986/88"))
)



mort.DE.census[["m", "1871/81"]] = mort.DE.census.1871.81.male
mort.DE.census[["m", "1881/90"]] = mort.DE.census.1881.90.male
mort.DE.census[["m", "1891/1900"]] = mort.DE.census.1891.1900.male
mort.DE.census[["m", "1901/10"]] = mort.DE.census.1901.10.male
mort.DE.census[["m", "1910/11"]] = mort.DE.census.1910.11.male
mort.DE.census[["m", "1924/26"]] = mort.DE.census.1924.26.male
mort.DE.census[["m", "1932/34"]] = mort.DE.census.1932.34.male
mort.DE.census[["m", "1949/51"]] = mort.DE.census.1949.51.male
mort.DE.census[["m", "1960/62"]] = mort.DE.census.1960.62.male
mort.DE.census[["m", "1970/72"]] = mort.DE.census.1970.72.male
mort.DE.census[["m", "1986/88"]] = mort.DE.census.1986.88.male

mort.DE.census[["w", "1871/81"]] = mort.DE.census.1871.81.female
mort.DE.census[["w", "1881/90"]] = mort.DE.census.1881.90.female
mort.DE.census[["w", "1891/1900"]] = mort.DE.census.1891.1900.female
mort.DE.census[["w", "1901/10"]] = mort.DE.census.1901.10.female
mort.DE.census[["w", "1910/11"]] = mort.DE.census.1910.11.female
mort.DE.census[["w", "1924/26"]] = mort.DE.census.1924.26.female
mort.DE.census[["w", "1932/34"]] = mort.DE.census.1932.34.female
mort.DE.census[["w", "1949/51"]] = mort.DE.census.1949.51.female
mort.DE.census[["w", "1960/62"]] = mort.DE.census.1960.62.female
mort.DE.census[["w", "1970/72"]] = mort.DE.census.1970.72.female
mort.DE.census[["w", "1986/88"]] = mort.DE.census.1986.88.female



mort.DE.census.ALL.male = MortalityTables::makeQxDataFrame(
    mort.DE.census.1871.81.male,
    mort.DE.census.1881.90.male,
    mort.DE.census.1891.1900.male,
    mort.DE.census.1901.10.male,
    mort.DE.census.1910.11.male,
    mort.DE.census.1924.26.male,
    mort.DE.census.1932.34.male,
    mort.DE.census.1949.51.male,
    mort.DE.census.1960.62.male,
    mort.DE.census.1970.72.male,
    mort.DE.census.1986.88.male
);


mort.DE.census.ALL.female = MortalityTables::makeQxDataFrame(
    mort.DE.census.1871.81.female,
    mort.DE.census.1881.90.female,
    mort.DE.census.1891.1900.female,
    mort.DE.census.1901.10.female,
    mort.DE.census.1910.11.female,
    mort.DE.census.1924.26.female,
    mort.DE.census.1932.34.female,
    mort.DE.census.1949.51.female,
    mort.DE.census.1960.62.female,
    mort.DE.census.1970.72.female,
    mort.DE.census.1986.88.female
);

rm(de.vz.dataDR, de.vz.dataBRD, censtable)

###############################################################################

# plot(mort.DE.census.ALL.male, title = "Vergleich österreichische Sterbetafeln, Männer", legend.position = c(1,0))
# plot(mort.DE.census.ALL.female, title = "Vergleich österreichische Sterbetafeln, Frauen", legend.position = c(1,0))