Оцінювання облігації
У першому розділі ви оцінювали облігацію крок за кроком. У цій вправі ви оціните облігацію з номіналом $100, купонною ставкою 3% і строком до погашення 8 років. Ви побудуєте грошові потоки облігації та обчислите теперішню вартість кожного з них, використовуючи дохідність Aaa, отриману у попередній вправі.
Об'єкт aaa_yield попередньо завантажений у ваш робочий простір зі значенням 0.0341.
Ця вправа є частиною курсу
Оцінювання та аналіз облігацій в R
Інструкції до вправи
- Створіть об'єкт грошових потоків (
cf), що містить грошові потоки облігації. - Використайте
data.frame()щоб перетворитиcfна датафрейм, аби додати додаткові змінні, потрібні для вашого аналізу. - Додайте індикатор часу (
cf$t), який позначає роки від 1 до 8, за допомогою командиseq(). - Обчисліть фактор дисконтування PV (
cf$pv_factor) на основі дохідності Moody's Aaa (aaa_yield) та вашого індикатора часу (cf$t). - Обчисліть теперішню вартість кожного потоку (
cf$pv) як добутокcf$cfі фактора дисконтування (cf$pv_factor). - Нарешті, обчисліть ціну облігації як
sum()теперішніх вартостей кожного грошового потоку.
Інтерактивна практична вправа
Спробуйте виконати цю вправу, доповнивши цей зразок коду.
# 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(___)