A cohort life table, obtained by an improvment factor projection from a given base table (PODs for a given observation year).
baseYearThe base year for the improvements (baseTable
describes the death probabilities in this year)
improvementYearly improvement factors per age
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | mortalityTables.load("Austria_Annuities_AVOe2005R")
# AVOe 2005R base table with yearly improvements of 3% for age 0, linearly
# decreasing to 0% for age 120.
tb = mortalityTable.improvementFactors(
    ages = ages(AVOe2005R.male),
    deathProbs = periodDeathProbabilities(AVOe2005R.male, Period = 2002),
    baseYear = 2002,
    improvement = 0.03 * (1 - ages(AVOe2005R.male)/121),
    name = "AVOe 2005R base with linearly falling improvements (DEMO)"
)
# Yearly trend is declining:
plotMortalityTrend(tb, AVOe2005R.male, Period = 2017, title = "Mortality Trend")
# The cohort tables for different birth years:
plot(getCohortTable(tb, YOB = 1963), getCohortTable(tb, YOB = 2017))
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.