Assurance temporaire en cas de décès
Ethan se demande comment la VPA d’une assurance en cas de décès évolue lorsque la couverture est limitée dans le temps, comme illustré sur la figure ci-dessous.
Il calcule d’abord la VPA d’une assurance vie entière pour une personne de 20 ans avec un taux d’intérêt \(i = 2\%\) en utilisant la life_table préchargée pour les femmes en Belgique en 1999.
En partant de la fonction whole_life_insurance() créée dans l’exercice précédent, pouvez-vous aider Cynthia à écrire une fonction pour une assurance temporaire en cas de décès ?
Cet exercice fait partie du cours
Évaluation des produits d’assurance vie en R
Instructions
- Définissez la fonction
temporary_life_insurance()qui calcule la VPA d’une assurance temporaire en cas de décès. Outre les arguments récurrentsage,ietlife_table, la fonction prend maintenant un argument supplémentairenindiquant le nombre d’années pendant lesquelles la couverture de l’assurance s’applique. - Utilisez votre nouvelle fonction
temporary_life_insurance()pour calculer comment la VPA de l’assurance de (20) au taux de 2 % évolue lorsque la couverture est limitée à une période de 45 ans.
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
# EPV of a whole life insurance for (20) at interest rate 2% using life_table
whole_life_insurance(20, 0.02, life_table)
# Function to compute the EPV of a temporary life insurance
temporary_life_insurance <- function(age, n, i, life_table) {
qx <- life_table$qx
px <- 1 - qx
kpx <- c(1, cumprod(px[(___):(___)]))
kqx <- kpx * qx[(___):(___)]
discount_factors <- (1 + i) ^ - (1:length(kqx))
___(___ * ___)
}
# EPV of a temporary life insurance for (20) over a period of 45 years at interest rate 2% using life_table
temporary_life_insurance(___, ___, ___, ___)