Seguro de vida temporal

Ethan se pregunta cómo cambia el VAE de un seguro de vida si la cobertura se limita en el tiempo, como se muestra en la figura de abajo.

Primero calcula el VAE de un seguro de vida entera para una persona de 20 años con un tipo de interés \(i = 2\%\) y usando la life_table precargada para mujeres en Bélgica en 1999.

Partiendo de la función whole_life_insurance() creada en el ejercicio anterior, ¿puedes ayudar a Cynthia a escribir una función para un seguro de vida temporal?

Este ejercicio forma parte del curso

Valoración de productos de seguros de vida en R

Ver curso

Instrucciones del ejercicio

Define la función temporary_life_insurance() que calcule el VAE de un seguro de vida temporal. Además de los argumentos habituales age, i y life_table, la función ahora recibe un argumento adicional n que indica el número de años durante los cuales se mantiene la cobertura del seguro de vida.
Utiliza tu nueva función temporary_life_insurance() para calcular cómo cambia el VAE del seguro de vida de (20) al tipo del 2% cuando la cobertura se limita a un período de 45 años.

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

Editar y ejecutar código