Temporär livförsäkring

Ethan undrar hur EPV för en livförsäkring förändras om försäkringsskyddet begränsas i tid, vilket illustreras i figuren nedan.

Han beräknar först EPV för en hel livförsäkring för en 20-åring vid räntan \(i = 2\%\) och använder den förinstallerade life_table för kvinnor i Belgien år 1999.

Med funktionen whole_life_insurance() från föregående övning som utgångspunkt – kan du hjälpa Cynthia att skriva en funktion för en temporär livförsäkring?

Den här övningen är en del av kursen

Värdering av livförsäkringsprodukter i R

Visa kurs

Övningsinstruktioner

Definiera funktionen temporary_life_insurance() som beräknar EPV för en temporär livförsäkring. Förutom de återkommande argumenten age, i och life_table tar funktionen nu ett ytterligare argument n som anger hur många år försäkringsskyddet gäller.
Använd den nydefinierade funktionen temporary_life_insurance() för att beräkna hur EPV för livförsäkringen av (20) vid räntan 2% förändras när skyddstiden begränsas till 45 år.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# 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(___, ___, ___, ___)

Redigera och kör kod