Évaluation d'une obligation
Au chapitre un, vous avez évalué une obligation à l'aide d'une démarche étape par étape. Dans cet exercice, vous évaluerez une obligation d'une valeur nominale de 100 $, avec un taux de coupon de 3 % et une échéance dans 8 ans. Vous présenterez les flux monétaires de l'obligation et calculerez la valeur actuelle de chacun de ces flux en utilisant le rendement Aaa que vous avez obtenu à l'exercice précédent.
L'objet aaa_yield est déjà chargé dans votre espace de travail avec la valeur 0.0341.
Cette activité fait partie du cours
Évaluation et analyse des obligations avec R
Instructions de l’exercice
- Créez un objet de flux monétaires (
cf) contenant les flux de l'obligation. - Utilisez
data.frame()pour convertircfen tableau de données afin d'y ajouter les variables nécessaires à votre analyse. - Ajoutez un indicateur temporel (
cf$t) représentant les années de 1 à 8 à l'aide de la commandeseq(). - Calculez le facteur d'actualisation (
cf$pv_factor) en fonction du rendement Moody's Aaa (aaa_yield) et de votre indicateur temporel (cf$t). - Calculez la valeur actuelle de chaque flux monétaire (
cf$pv) comme le produit decf$cfet du facteur d'actualisation (cf$pv_factor). - Enfin, calculez le prix de l'obligation comme la
sum()des valeurs actuelles de chaque flux monétaire.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
# Layout the bond's cash flows
cf <- c(___, ___, ___, ___, ___, ___, ___, ___)
# Convert to data.frame
cf <-
# Add time indicator
cf$t <- seq(___, ___, ___)
# Calculate PV factor
cf$pv_factor <- 1 / (1 + ___)^___
# Calculate PV
cf$pv <-
# Price bond
sum(___)