Dočasné životní pojištění

Ethan se zajímá o to, jak se EPV životního pojištění změní, pokud je krytí časově omezeno, jak ukazuje obrázek níže.

Nejprve vypočítá EPV celožijotního pojištění pro dvacetiletého pojistníka při úrokové míře \(i = 2\%\) a s využitím předem načtené life_table pro ženy v Belgii v roce 1999.

Vycházeje z funkce whole_life_insurance() vytvořené v předchozím cvičení, pomůžeš Cynthii napsat funkci pro dočasné životní pojištění?

Toto cvičení je součástí kurzu

Oceňování produktů životního pojištění v R

Zobrazit kurz

Pokyny k cvičení

Definuj funkci temporary_life_insurance(), která vypočítá EPV pro dočasné životní pojištění. Kromě opakujících se argumentů age, i a life_table přijímá funkce navíc argument n udávající počet let, po která pojistné krytí trvá.
Pomocí nově definované funkce temporary_life_insurance() zjisti, jak se změní EPV životního pojištění osoby ve věku (20) při sazbě 2 %, pokud je krytí omezeno na období 45 let.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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

Upravit a spustit kód