inst/extdata/MortalityTables_Austria_Annuities_AVOe1996R.R

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

stopifnot(require(methods), require(utils), require(MortalityTables)) # MortalityTable classes; new; Excel reader


###############################################################################
# AVÖ 1996R exact (Male, Female), 1st-order only
###############################################################################

AVOe1996R.exakt.data = utils::read.csv(
    system.file("extdata",
                "Austria_Annuities_AVOe1996R.csv",
                package = "MortalityTables"),
    skip = 2)

AVOe1996R.trend.switching = function(year) {
    if (year <= 1971) {
        15/(1991 - year)
    } else if (1971 < year && year < 1981) {
         1 + (year - 1981)^2/(year - 1991)/20
    } else if (1981 <= year && year <= 2000) {
        1
    } else if (2000 < year && year < 2010) {
        1 - (year - 2000)^2/(year - 1991)/20
    } else if (year >= 2010) {
        14/(year - 1991)
    }
}

AVOe1996R.male = mortalityTable.trendProjection(
    name = "AVÖ 1996R male",
    ages = AVOe1996R.exakt.data$age, baseYear = 1991,
    deathProbs = AVOe1996R.exakt.data$qx1991 * AVOe1996R.exakt.data$factorM,
    trend = AVOe1996R.exakt.data$trendM.long,
    trend2 = AVOe1996R.exakt.data$trendM.short,
    dampingFunction = AVOe1996R.trend.switching,
    data = list(
        dim = list(sex = "m", collar = "Rententafel", type = "Rententafel Österreich", data = "official", year = "AVÖ 1996-R")
    )
)

AVOe1996R.female = mortalityTable.trendProjection(
    name = "AVÖ 1996R female",
    ages = AVOe1996R.exakt.data$age, baseYear = 1991,
    deathProbs = AVOe1996R.exakt.data$qy1991 * AVOe1996R.exakt.data$factorF,
    trend = AVOe1996R.exakt.data$trendF.long,
    trend2 = AVOe1996R.exakt.data$trendF.short,
    dampingFunction = AVOe1996R.trend.switching,
    data = list(
        dim = list(sex = "w", collar = "Rententafel", type = "Rententafel Österreich", data = "official", year = "AVÖ 1996-R")
    )
)

AVOe1996R.male.group = mortalityTable.trendProjection(
    name = "AVÖ 1996R male, group",
    ages = AVOe1996R.exakt.data$age, baseYear = 1991,
    deathProbs = AVOe1996R.exakt.data$qx1991 * AVOe1996R.exakt.data$factorMG,
    trend = AVOe1996R.exakt.data$trendM.long,
    trend2 = AVOe1996R.exakt.data$trendM.short,
    dampingFunction = AVOe1996R.trend.switching,
    data = list(
        dim = list(sex = "m", collar = "Gruppenrententafel", type = "Rententafel Österreich", data = "official", year = "AVÖ 1996-R")
    )
);

AVOe1996R.female.group = mortalityTable.trendProjection(
    name = "AVÖ 1996R female, group",
    ages = AVOe1996R.exakt.data$age, baseYear = 1991,
    deathProbs = AVOe1996R.exakt.data$qy1991 * AVOe1996R.exakt.data$factorFG,
    trend = AVOe1996R.exakt.data$trendF.long,
    trend2 = AVOe1996R.exakt.data$trendF.short,
    dampingFunction = AVOe1996R.trend.switching,
    data = list(
        dim = list(sex = "w", collar = "Gruppenrententafel", type = "Rententafel Österreich", data = "official", year = "AVÖ 1996-R")
    )
);

AVOe1996R.male.av325 = mortalityTable.ageShift(
    name = "AVÖ 1996R M mit Altersverschiebung (3,25%)",
    ages = ages(AVOe1996R.male),
    deathProbs = deathProbabilities(AVOe1996R.male, YOB = 1950),
    ageShifts = generateAgeShift(initial = 1, YOBs = c(1922, 1944, 1958, 1973, 1989, 2006, 2023, 2041, 2056)),
    data = list(
        dim = list(sex = "m", collar = "Rententafel", type = "Rententafel Österreich", data = "Altersverschiebung", year = "AVÖ 1996-R")
    )
)
AVOe1996R.female.av325 = mortalityTable.ageShift(
    name = "AVÖ 1996R F mit Altersverschiebung (3,25%)",
    ages = ages(AVOe1996R.female),
    deathProbs = deathProbabilities(AVOe1996R.female, YOB = 1950),
    ageShifts = generateAgeShift(initial = 2, YOBs = c(1922, 1932, 1945, 1956, 1968, 1980, 1993, 2007, 2021, 2036, 2051, 2056)),
    data = list(
        dim = list(sex = "w", collar = "Rententafel", type = "Rententafel Österreich", data = "Altersverschiebung", year = "AVÖ 1996-R")
    )
)


AVOe1996R = array(
    data = c(mortalityTable.NA),
    dim = c(2, 3),
    dimnames = list(Geschlecht = c("m", "w"), Collar = c("Einzel", "Gruppe", "AV"))
)

AVOe1996R[["m", "Einzel"]] = AVOe1996R.male
AVOe1996R[["w", "Einzel"]] = AVOe1996R.female

AVOe1996R[["m", "Gruppe"]] = AVOe1996R.male.group
AVOe1996R[["w", "Gruppe"]] = AVOe1996R.female.group
AVOe1996R[["m", "AV"]] = AVOe1996R.male.av325
AVOe1996R[["w", "AV"]] = AVOe1996R.female.av325


rm(AVOe1996R.exakt.data)