Tijdelijk vs. levenslang

Kun je tot slot Cynthia helpen met het schrijven van een functie voor een tijdelijke direct ingaande lijfrente waarbij de uitkeringen in de tijd beperkt zijn? De eerste uitkering vindt plaats op tijdstip \(0\) en de laatste op tijdstip \(n-1\).

Zowel life_table als de R-functie life_annuity_due zijn nog beschikbaar in je werkruimte.

Deze oefening maakt deel uit van de cursus

Waardering van levensverzekeringsproducten in R

Bekijk cursus

Oefeninstructies

Definieer de functie temporary_life_annuity_due() op basis van de code van life_annuity_due() zodat de EPV wordt berekend voor een tijdelijke direct ingaande lijfrente. De functie heeft nu een extra argument n dat het aantal uitkeringen aangeeft. Zowel kpx als discount_factors moeten daarom een totale lengte van n hebben.
Gebruik temporary_life_annuity_due() om de EPV te berekenen van een 10-jarige direct ingaande lijfrente voor (20) bij een rente van 2% met gebruik van de 1999 periodetafel voor vrouwen.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)

# Function to compute the EPV of a temporary life annuity due for a given age, period of n years, interest rate i and life table
temporary_life_annuity_due <- function(age, n, i, life_table) {
  px <- 1 - life_table$qx
  kpx <- c(1, cumprod(px[(___):(___)]))
  discount_factors <- (1 + i) ^ - (0:(___))
  ___
}

# EPV of a temporary life annuity due for (20) over 10 years at interest rate 2% using life_table
temporary_life_annuity_due(___, ___, ___, ___)

Code bewerken en uitvoeren