Assurance vie temporaire
Ethan se demande comment la VPA d'une assurance vie évolue lorsque la protection est limitée dans le temps, comme illustré dans la figure ci-dessous.
Il calcule d'abord la VPA d'une assurance vie entière pour une personne de 20 ans, à un taux d'intérêt \(i = 2\%\) et 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 à l'exercice précédent, pouvez-vous aider Cynthia à écrire une fonction pour une assurance vie temporaire?
Cette activité fait partie du cours
Évaluation des produits d'assurance vie en R
Instructions de l’exercice
- Définissez la fonction
temporary_life_insurance()qui calcule la VPA d'une assurance vie temporaire. En plus des arguments récurrentsage,ietlife_table, la fonction prend maintenant un argument supplémentairenindiquant le nombre d'années pendant lesquelles la protection de l'assurance vie est en vigueur. - Utilisez votre nouvelle fonction
temporary_life_insurance()pour calculer comment la VPA de l'assurance vie de (20) au taux de 2 % change lorsque la protection est limitée à une période de 45 ans.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
# 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(___, ___, ___, ___)