Rappresentare le aspettative di vita per età

Cynthia decide di visualizzare l'aspettativa di vita in funzione dell'età. Puoi guidarla nella costruzione di questo grafico?

Per farlo in modo efficiente in R, dovresti prima scrivere una funzione che calcoli la curtate life expectancy per una data età e una life table. Poi potrai applicare questa funzione a tutte le età nella life table. Usando sapply() (docs) l'output viene semplificato nella struttura di dati più elementare possibile.

L'oggetto life_table precaricato contiene la period life table del 1999 per le donne in Belgio.

Questo esercizio fa parte del corso

Valutazione dei prodotti assicurativi sulla vita in R

Visualizza corso

Istruzioni dell'esercizio

Completa il codice che definisce la funzione curtate_future_lifetime().
Crea un vettore ages estraendo la colonna age da life_table.
Usa sapply() con argomenti ages, curtate_future_lifetime e life_table per calcolare la curtate life expectancy a tutte le età nella life table.
Traccia future_lifetimes rispetto a ages.

esercizio interattivo pratico

Prova questo esercizio completando questo codice di esempio.

# 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")

Modifica ed esegui il codice