НачатьНачать бесплатно

Дисконтирование денежных потоков облигации при известной доходности

Определив денежные потоки облигации, можно перейти к вычислению приведённой стоимости каждого из них и оценке облигации в целом. Напомним, что стоимость облигации равна сумме приведённых стоимостей всех её денежных потоков.

В этом упражнении вы рассчитаете коэффициент приведённой стоимости pv_factor для каждого денежного потока, а затем вычислите приведённую стоимость pv каждого из них. После этого вы просуммируете значения pv, чтобы получить стоимость облигации.

Напомним, что доходность данной облигации составляет 6% — именно она используется в качестве ставки дисконтирования. Таблица данных cf, созданная в предыдущем упражнении, уже доступна в вашем рабочем пространстве.

Это упражнение является частью курса

Оценка и анализ облигаций на R

Посмотреть курс

Инструкции к упражнению

  • Создайте новый столбец t в таблице данных cf, который будет указывать год получения денежного потока. Год соответствует названию строк таблицы (1, 2, 3 и т. д.), поэтому для задания t можно использовать функцию rownames(). Чтобы убедиться, что значения t являются числовыми, примените функцию as.numeric().
  • Создайте ещё один новый столбец pv_factor в объекте cf для хранения коэффициента приведённой стоимости каждого года. Этот коэффициент рассчитывается как 1, делённая на (1 + ставка доходности), где ставка доходности равна 6%, то есть 0.06, а результат возводится в степень переменной времени t.
  • Создайте столбец pv в таблице cf для хранения приведённой стоимости денежного потока каждого года. Приведённая стоимость вычисляется как денежный поток (cf), умноженный на коэффициент приведённой стоимости соответствующего года (pv_factor).
  • Наконец, используйте функцию sum(), чтобы просуммировать значения в столбце pv и получить стоимость облигации.

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

# 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(___$___)
Редактировать и запускать код