Cohort-overlevingskansen

De kans die Cynthia eerder berekende voor een 18-jarige in 1999 om de leeftijd van 23 te halen, was eigenlijk de periode-overlevingskans. Kun je haar helpen haar berekeningen aan te passen zodat de dynamiek van de overlevingskansen in de tijd wordt meegenomen? De éénjaars overlevingskansen die je in de vermenigvuldigingsregel gebruikt, moeten daarom diagonaal uit de life table gehaald worden:

$$ _5p_{18, 1999} = p_{18, 1999} \cdot p_{19,2000} \cdot p_{20,2001} \cdot p_{21,2002} \cdot p_{22,2003} $$

Het object life_table uit de vorige oefening is nog geladen.

Deze oefening maakt deel uit van de cursus

Waardering van levensverzekeringsproducten in R

Bekijk cursus

Oefeninstructies

Maak en print de cohort-life table voor vrouwen geboren in $1999 - 18 = 1981$ met subset().
Definieer de cohort éénjaars overlevingskansen px op basis van de kolom qx van life_table_1981.
Bereken de 5-jaars cohort-overlevingskans voor (18).
Kun je deze berekening herhalen voor geboortejaar 1881, een eeuw eerder, in één enkele regel? Je hebt zowel with() als subset() nodig.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

# Construct and print the cohort life table for birth year 1981
life_table_1981 <- ___(___, ___)
life_table_1981

# 1981 cohort one-year survival probabilities
px <- ___

# 1981 cohort survival probability that (18) survives 5 more years
___(px[(___):(___)])

# 1881 cohort survival probability that (18) survives 5 more years
___(___(life_table, year - age == ___), prod(1 - qx[(18 + 1):(22 + 1)]))

Code bewerken en uitvoeren