Tracer l'espérance de vie selon l'âge

Cynthia souhaite visualiser l'espérance de vie en fonction de l'âge. Pouvez-vous l'aider à construire un tel graphique?

Pour le faire efficacement en R, vous devriez d'abord écrire une fonction qui calcule l'espérance de vie tronquée (curtate) pour un âge et une table de mortalité donnés. Ensuite, vous pourrez appliquer cette fonction à tous les âges de la table. En utilisant sapply() (docs), la sortie est simplifiée vers la structure de données la plus élémentaire possible.

L'objet life_table préchargé contient la table de mortalité périodique de 1999 pour les femmes en Belgique.

Cette activité fait partie du cours

Évaluation des produits d'assurance vie en R

Voir le cours

Instructions de l’exercice

Complétez le code qui définit la fonction curtate_future_lifetime().
Créez un vecteur ages en extrayant la colonne age de life_table.
Utilisez sapply() avec les arguments ages, curtate_future_lifetime et life_table pour calculer l'espérance de vie tronquée à tous les âges de la table.
Tracez future_lifetimes en fonction de ages.

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

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

Modifier et exécuter le code