Representar la esperanza de vida por edad

Cynthia quiere visualizar la esperanza de vida en función de la edad. ¿Puedes guiar a Cynthia para construir ese gráfico?

Para hacerlo de forma eficiente en R, primero debes escribir una función que calcule la esperanza de vida curtata para una edad y una tabla de vida dadas. Después, puedes aplicar esta función sobre todas las edades de la tabla de vida. Usando sapply() (docs) la salida se simplifica a la estructura de datos más elemental posible.

El objeto life_table precargado contiene la tabla de vida de periodo de 1999 para mujeres en Bélgica.

Este ejercicio forma parte del curso

Valoración de productos de seguros de vida en R

Ver curso

Instrucciones del ejercicio

Completa el código que define la función curtate_future_lifetime().
Crea un vector ages extrayendo la columna age de life_table.
Usa sapply() con los argumentos ages, curtate_future_lifetime y life_table para calcular la esperanza de vida curtata a todas las edades de la tabla de vida.
Representa future_lifetimes frente a ages.

Ejercicio interactivo práctico

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

# Function to compute the curtate expected future lifetime for a given age and life table
curtate_future_lifetime <- function(age, life_table) {
  px <- ___
  kpx <- ___(px[(___):length(px)])
  ___(___)
}

# Vector of ages
ages <- ___

# Curtate future lifetimes for all ages
future_lifetimes <- ___(___, ___, ___)

# Future lifetime by age
plot(___, ___, type = 'l', lwd = 2, col = "green", xlab = "Age x", ylab = "Future lifetime", main = "Future lifetime by age")

Editar y ejecutar código