Temporal vs vitalicia

Por último, ¿puedes ayudar a Cynthia a escribir una función para una renta vitalicia anticipada temporal en la que los pagos estén acotados en el tiempo? El primer pago se realiza en el instante \(0\) y el último en el instante \(n-1\).

Tanto life_table como la función de R life_annuity_due siguen disponibles en tu espacio de trabajo.

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_annuity_due() partiendo del código de life_annuity_due() para que el VAE se calcule para una renta vitalicia anticipada temporal. La función ahora tiene un argumento adicional n que indica el número de pagos. Por tanto, tanto kpx como discount_factors deben tener una longitud total de n.
Usa temporary_life_annuity_due() para calcular el VAE de una renta vitalicia anticipada a 10 años para (20) al 2% usando la tabla de mortalidad periódica de 1999 para mujeres.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)

# Function to compute the EPV of a temporary life annuity due for a given age, period of n years, interest rate i and life table
temporary_life_annuity_due <- function(age, n, i, life_table) {
  px <- 1 - life_table$qx
  kpx <- c(1, cumprod(px[(___):(___)]))
  discount_factors <- (1 + i) ^ - (0:(___))
  ___
}

# EPV of a temporary life annuity due for (20) over 10 years at interest rate 2% using life_table
temporary_life_annuity_due(___, ___, ___, ___)

Editar y ejecutar código