Actualiser les flux de trésorerie d’une obligation avec un rendement connu
Après avoir listé les flux de trésorerie de l’obligation, nous pouvons maintenant calculer la valeur actuelle de chaque flux et valoriser l’obligation. Rappelez-vous que la valeur de l’obligation correspond à la somme des valeurs actuelles de ses flux de trésorerie.
Dans cet exercice, vous allez calculer le facteur d’actualisation approprié, pv_factor, pour chaque flux, afin de pouvoir en déduire la valeur actuelle pv de chaque flux. Vous additionnerez ensuite les pv pour obtenir la valeur de l’obligation.
Rappelez-vous que cette obligation a un rendement de 6 %, qui sert de taux d’actualisation. Le data frame que vous avez créé dans l’exercice précédent, cf, est disponible dans votre espace de travail.
Cet exercice fait partie du cours
Évaluation et analyse des obligations avec R
Instructions
- Créez une nouvelle colonne
tdans votre data framecfpour indiquer l’année de réception du flux de trésorerie. Notez que, pour nos besoins, l’année correspond au nom des lignes de votre data frame (1,2,3, etc.). Vous pouvez donc simplement utiliserrownames()pour renseignert. Utilisezas.numeric()pour vous assurer que les valeurs detsont numériques. - Créez une autre colonne
pv_factordans votre objetcfpour stocker le facteur d’actualisation de chaque année. Rappelez-vous que le facteur d’actualisation annuel se calcule comme 1 divisé par 1 + le taux de rendement (ici 6 %, soit0.06) élevé à la puissance de votre variable de temps (t). - Créez une colonne
pvdanscfpour stocker la valeur actuelle du flux de trésorerie de chaque année. La valeur actuelle se calcule comme le flux de trésorerie (cf) multiplié par le facteur d’actualisation de l’année (pv_factor). - Enfin, utilisez
sum()pour additionner les valeurs depvet obtenir la valeur de l’obligation.
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
# Add column t to cf
cf$t <- as.numeric(___(___))
# Calculate pv_factor
cf$pv_factor <- 1 / (1 + ___)^___
# Calculate pv
cf$pv <- ___ * ___
# Calculate the bond price
sum(___$___)