Оценка стоимости облигации
В первой главе вы оценивали облигацию пошагово. В этом упражнении вы оцените облигацию с номинальной стоимостью $100, купонной ставкой 3% и сроком до погашения 8 лет. Вам нужно будет составить денежные потоки по облигации и рассчитать приведённую стоимость каждого из них, используя доходность Aaa, полученную в предыдущем упражнении.
Объект aaa_yield уже загружен в вашу рабочую среду со значением 0.0341.
Это упражнение является частью курса
Оценка и анализ облигаций на R
Инструкции к упражнению
- Создайте объект денежных потоков (
cf), содержащий денежные потоки по облигации. - Используйте
data.frame(), чтобы преобразоватьcfв таблицу данных — это позволит добавить дополнительные переменные для анализа. - Добавьте временной индикатор (
cf$t), представляющий годы с 1 по 8, с помощью командыseq(). - Рассчитайте коэффициент приведения (
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(___)