Asigurare de viață amânată

Cynthia îl provoacă acum pe Ethan să modifice codul pentru a calcula VPA al unei asigurări de viață amânate pentru \((x)\), la o rată a dobânzii constantă \(i\). Figura de mai jos ilustrează cronologia corespunzătoare pentru o perioadă de amânare de \(u\) ani.

Nu se acordă niciun beneficiu în caz de deces dacă asiguratul moare în primii \(u\) ani. Începând cu momentul \(u\), un beneficiu de deces de 1 EUR este plătit la sfârșitul anului în care survine decesul asiguratului.

Funcția whole_life_insurance() și VPA al unei asigurări de viață pe termen nelimitat pentru o persoană de 20 de ani, la rata dobânzii \(i = 2\%\) și folosind life_table pentru femei din 1999, sunt furnizate ca punct de plecare.

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 deferred_life_insurance(), care calculează VPA al unei asigurări de viață amânate pentru o age dată, o perioadă de amânare u, o rată a dobânzii i și un tabel de mortalitate life_table.
Aplică funcția deferred_life_insurance() pentru a calcula VPA al unei asigurări de viață cu o perioadă de amânare de 45 de ani. Folosește vârsta de 20 de ani, rata dobânzii de 2% și life_table preîncărcată pentru femei din 1999.

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 deferred whole life insurance
deferred_life_insurance <- function(age, u, i, life_table) {
  qx <- life_table$qx;  px <- 1 - qx
  kpx <- c(1, cumprod(px[(age + 1):(length(px) - 1)]))
  kqx <- kpx * qx[(age + 1):length(qx)]
  discount_factors <- (1 + i) ^ - (1:length(kqx))
  benefits <- c(rep(___, ___), rep(___, length(kpx) - u))
  sum(___ * discount_factors * kqx)
}

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

Editează și rulează codul