Asigurare de viață temporară

Ethan se întreabă cum se modifică VPA al unei asigurări de viață dacă acoperirea este limitată în timp, așa cum este ilustrat în figura de mai jos.

El calculează mai întâi VPA al unei asigurări de viață întreagă pentru o persoană de 20 de ani, la o rată a dobânzii \(i = 2\%\), folosind life_table preîncărcat pentru femei din Belgia în 1999.

Pornind de la funcția whole_life_insurance() creată în exercițiul anterior, poți să o ajuți pe Cynthia să scrie o funcție pentru o asigurare de viață temporară?

Acest exercițiu face parte din cursul

Evaluarea produselor de asigurare de viață în R

Vezi cursul

Instrucțiuni pentru exercițiu

Definește funcția temporary_life_insurance(), care calculează VPA pentru o asigurare de viață temporară. Pe lângă argumentele obișnuite age, i și life_table, funcția primește acum un argument suplimentar n, care indică numărul de ani cât durează acoperirea asigurării de viață.
Folosește funcția temporary_life_insurance() pe care tocmai ai definit-o pentru a calcula cum se modifică VPA al asigurării de viață a persoanei de (20) de ani, la rata de 2%, atunci când acoperirea este restricționată la o perioadă de 45 de ani.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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

Editează și rulează codul