Payable à terme échu ou à échoir
Pour la suite, le superviseur de Cynthia lui demande de voir comment adapter le script pour une rente viagère immédiate dont les versements commencent après un an.
La table de mortalité féminine belge 1999 est préchargée sous le nom life_table et le code solution de l'exercice précédent est fourni comme point de départ. Tapez life_annuity_due dans la console si vous voulez revoir la définition de la fonction.
Cette activité fait partie du cours
Évaluation des produits d'assurance vie en R
Instructions de l’exercice
- En vous basant sur la fonction
life_annuity_due(), écrivez une nouvelle fonctionlife_immediate_annuity()qui calcule la VAP d'une rente viagère immédiate payable la vie durant. Comme il n'y a aucun versement à l'instant 0 pour une rente immédiate,kpxetdiscount_factorsdoivent tous deux être définis à partir de l'instant 1. - Calculez la VAP d'une rente viagère immédiate payable la vie durant pour (20) à un taux d'intérêt constant de 2 % en utilisant
life_table. Vérifiez que le résultat est inférieur de 1 EUR à celui de la rente à échoir.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)
# Function to compute the EPV of a whole life immediate annuity for a given age, interest rate i and life table
life_immediate_annuity <- function(age, i, life_table) {
px <- ___
kpx <- ___(px[(age + 1):length(px)])
discount_factors <- (___) ^ - (___)
sum(___)
}
# EPV of a whole life immediate annuity for (20) at interest rate 2% using life_table
life_immediate_annuity(___, ___, ___)