Partout, en tout temps?
En réfléchissant à ses habitudes de dépense, Cynthia se demande combien elle récolterait si elle déposait son argent dans un compte bancaire au lieu de l'utiliser pour des téléchargements et des billets de concert. Pour ce faire, vous allez calculer la valeur des flux monétaires à un moment futur, à l'aide d'une fonction d'actualisation appropriée.
Le profil de dépenses de Cynthia est illustré ci‑dessus. Le vecteur cash_flows, que vous avez défini dans le premier exercice, a été préchargé dans votre espace de travail. Le taux d'intérêt est toujours de 2 %.
Cette activité fait partie du cours
Évaluation des produits d'assurance vie en R
Instructions de l’exercice
- Définissez la fonction
discount()qui calcule la valeur au temps \(s\) de 1 EUR versé au temps \(t\). - Utilisez
discount()pour calculer la valeur actuelle decash_flowsaux temps de 0 à 5. Cela devrait correspondre à votre résultat précédent, soit 444,93 EUR. - Affichez la valeur du vecteur de flux monétaires lorsque Cynthia aura 18 ans, dans 6 ans.
- Calculez la valeur accumulée du vecteur de flux monétaires au temps 6 d'une autre façon. Cette fois, convertissez la
present_valueau temps 0 en valeur au temps 6.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
# Define the discount function v
discount <- function(s, t, i = 0.02) {
(1 + ___) ^ - (___ - ___)
}
# Calculate the present value
present_value <- sum(cash_flows * discount(___, ___))
present_value
# Calculate the value at time 6
sum(cash_flows * discount(___, ___))
# Calculate the value at time 6, starting from present_value
present_value * discount(___, ___)