Plotando expectativas de vida por idade

Cynthia decidiu visualizar a expectativa de vida em função da idade. Você pode orientar a Cynthia sobre como construir esse gráfico?

Para fazer isso de forma eficiente em R, você deve primeiro escrever uma função que calcule a expectativa de vida curtata para uma dada idade e tábua de vida. Depois, você pode aplicar essa função a todas as idades na tábua. Usando sapply() (docs), a saída é simplificada para a estrutura de dados mais elementar possível.

O objeto life_table, já carregado, contém a tábua de vida de período de 1999 para mulheres na Bélgica.

Este exercicio faz parte do curso

Avaliação de Produtos de Seguro de Vida em R

Ver curso

Instruções do exercicio

Complete o código definindo a função curtate_future_lifetime().
Crie um vetor ages extraindo a coluna age de life_table.
Use sapply() com os argumentos ages, curtate_future_lifetime e life_table para calcular a expectativa de vida curtata em todas as idades da tábua de vida.
Plote future_lifetimes versus ages.

exercicio interativo prático

Tente este exercicio completando este código de exemplo.

# 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 e Executar Código