Оцінювання дохідності облігації
Оцінювання та аналіз облігацій в R
Clifford Ang
Senior Vice President, Compass Lexecon
Пошук дохідності методом підбору
- Для облігацій, що торгуються, можна імплікувати дохідність
- Знаючи ціну та грошові потоки облігації, ви можете «вгадувати» дохідність
- «Правильна» дохідність прирівнює ціну облігації до PV її грошових потоків
Ітерації з різними припущеннями
- Розгляньмо облігацію з номіналом $100, купоном 5%, строком 10 років і ціною $92,64
- 1-ша спроба: 5% → Ціна $100 (завищена)
- 2-га спроба: 7% → Ціна $85,95 (занижена)
- 3-тя спроба: 6% → Ціна $92,64 (точно)
Автоматизація процесу
- Метод підбору неефективний
- На щастя, можна використати функцію
uniroot()в R, щоб автоматизувати процес
Створіть функцію з uniroot()
ytm <- function(cf) {
uniroot(bval, c(0, 1), cf = cf)$root
}
- Створіть функцію
ytm()зuniroot() - Функція приймає змінений вектор грошових потоків (
cf) і використовує змінену функцію оцінки облігації (bval) c(0,1)обмежує пошук дохідністю між 0% і 100%
Змінений вектор грошових потоків
cf <- c(-92.64, 5, 5, 5, 5, 5, 5, 5, 5, 5, 105)
- Перший елемент — ціна облігації зі знаком мінус
- Далі — грошові потоки облігації: купони плюс номінал
- Та сама облігація: ціна -$\$92.64$, номінал $\$100$, купон 5%, строк 10 років
Змінена функція оцінки облігації
bval <- function(i, cf, t = seq(along = cf)) sum(cf / (1 + i)^t)
- Потрібно створити функцію оцінки облігації
bval(), що використовує змінений векторcf - Така сама логіка, як у нашій функції
bondprc() - Створіть індикатор часу (
t) - Дисконтуйте потоки за ставкою (
i)
Давайте потренуємось!
Оцінювання та аналіз облігацій в R
