Een pensioenplan voor mevrouw Cathleen

Als laatste opdracht tijdens haar zomerstage wordt Cynthia gevraagd enkele berekeningen te maken voor mevrouw Cathleen. Mevrouw Cathleen is een lerares van 40 die haar pensioen plant. Ze wil een lijfrente kopen die haar jaarlijks 18.000 EUR uitkeert zolang ze leeft, vanaf haar 65e. Er wordt niets uitgekeerd bij overlijden vóór 65. De onderstaande figuur laat het pensioenplan voor mevrouw Cathleen zien.

De eenjaars-overlevingskansen px zijn weer vooraf ingeladen.

Deze oefening maakt deel uit van de cursus

Waardering van levensverzekeringsproducten in R

Bekijk cursus

Oefeninstructies

Definieer kpx voor een 40-jarige vrouw.
Maak discount_factors die betalingen op tijdstip nul (leeftijd 40) verdisconteren tot en met tijd length(kpx) - 1 tegen 3%.
Ken de pensioenuitkeringen toe aan benefits. Zorg dat deze vector dezelfde lengte heeft als kpx.
Bereken de single_premium als de som van het elementgewijze product van benefits, discount_factors en kpx. Print het resultaat.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

# Survival probabilities of (40)
kpx <- c(___, ___(px[(___):___])) 

# Discount factors (to age 40)
discount_factors <- (1 + ___) ^ -(0:(___))

# Pension benefits
benefits <- c(rep(___, ___), rep(___, length(kpx) - 25))

# The single premium
single_premium <- ___
single_premium

Code bewerken en uitvoeren