Seguro de vida diferido
Ahora Cynthia reta a Ethan a que cambie él mismo el código para calcular el VAE de un seguro de vida diferido sobre \((x)\) para un tipo de interés constante \(i\). La figura siguiente muestra la línea temporal correspondiente para un período de diferimiento de \(u\) años.
No hay prestación por fallecimiento si la persona asegurada muere durante los primeros \(u\) años. A partir del instante \(u\), se paga una prestación por fallecimiento de 1 EUR al final del año de fallecimiento de la persona asegurada.
Como punto de partida, se proporciona la función whole_life_insurance() y el VAE de un seguro de vida entera para una persona de 20 años con tipo de interés \(i = 2\%\) y usando la life_table femenina de 1999.
Este ejercicio forma parte del curso
Valoración de productos de seguros de vida en R
Instrucciones del ejercicio
- Especifica la función
deferred_life_insurance()que calcule el VAE de un seguro de vida diferido para unaagedada, período de diferimientou, tipo de interésiylife table. - Aplica la función
deferred_life_insurance()para calcular el VAE de un seguro de vida con un período de diferimiento de 45 años. Usa edad 20, un tipo de interés del 2% y lalife_tablefemenina de 1999 precargada.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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(___, ___, ___, ___)