Actualiser les flux de trésorerie d'une obligation avec un rendement connu
Après avoir établi les flux de trésorerie de l'obligation, nous pouvons maintenant passer aux étapes de calcul de la valeur actuelle de chaque flux et évaluer 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 de trésorerie, afin de pouvoir calculer la valeur actuelle pv de chacun. Vous additionnerez ensuite les pv pour obtenir la valeur de l'obligation.
Rappel : le rendement de cette obligation est de 6 %, ce qui sert de taux d'actualisation. Le tableau de données que vous avez créé dans l'exercice précédent, cf, est disponible dans votre espace de travail.
Cette activité fait partie du cours
Évaluation et analyse des obligations avec R
Instructions de l’exercice
- Créez une nouvelle colonne
tdans votre tableau de donnéescfpour 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 tableau de données (1,2,3, etc.). Vous pouvez donc simplement utiliserrownames()pour définirt. Utilisezas.numeric()pour vous assurer que les valeurs detsont numériques. - Créez une autre nouvelle colonne,
pv_factor, dans votre objetcfpour stocker le facteur de valeur actuelle de chaque année. Rappelez-vous que le facteur de valeur actuelle d'une année se calcule comme 1 divisé par 1 + le taux de rendement (dans ce cas 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 de valeur actuelle 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 ce code d’exemple.
# 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(___$___)