Tijdelijke levensverzekering

Ethan vraagt zich af hoe de contante verwachtingswaarde (EPV) van een levensverzekering verandert als de dekking in de tijd wordt beperkt, zoals in de onderstaande figuur.

Hij berekent eerst de EPV van een gehele levensverzekering voor een 20-jarige bij een rentevoet \(i = 2\%\) en met gebruik van de vooringeladen life_table voor vrouwen in België in 1999.

Vertrekkend van de functie whole_life_insurance() uit de vorige oefening: kun je Cynthia helpen een functie te schrijven voor een tijdelijke levensverzekering?

Deze oefening maakt deel uit van de cursus

Waardering van levensverzekeringsproducten in R

Bekijk cursus

Oefeninstructies

Definieer de functie temporary_life_insurance() die de EPV voor een tijdelijke levensverzekering berekent. Naast de terugkerende argumenten age, i en life_table neemt de functie nu een extra argument n op dat het aantal jaren aangeeft waarin de levensverzekeringsdekking geldt.
Gebruik je nieuw gedefinieerde functie temporary_life_insurance() om te berekenen hoe de EPV van de levensverzekering van (20) bij een rente van 2% verandert wanneer de dekking wordt beperkt tot een periode van 45 jaar.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

# EPV of a whole life insurance for (20) at interest rate 2% using life_table
whole_life_insurance(20, 0.02, life_table)

# Function to compute the EPV of a temporary life insurance
temporary_life_insurance <- function(age, n, i, life_table) {
  qx <- life_table$qx
  px <- 1 - qx
  kpx <- c(1, cumprod(px[(___):(___)]))
  kqx <- kpx * qx[(___):(___)]
  discount_factors <- (1 + i) ^ - (1:length(kqx))
  ___(___ * ___)
}

# EPV of a temporary life insurance for (20) over a period of 45 years at interest rate 2% using life_table
temporary_life_insurance(___, ___, ___, ___)

Code bewerken en uitvoeren