Vẽ biểu đồ mối quan hệ giá/lợi suất
Mặc dù giá và lợi suất có quan hệ nghịch biến, mối quan hệ này không tuyến tính. Điều đó có nghĩa là mức thay đổi về giá do thay đổi lợi suất có thể khác biệt đáng kể tùy thuộc vào việc lợi suất tăng hay giảm. Chúng ta sẽ quay lại khái niệm quan trọng này khi bàn về độ lồi (convexity) ở Chương Ba và lý do cần có điều chỉnh để phản ánh mối quan hệ cong giữa giá trái phiếu và lợi suất. Trước mắt, bạn chỉ cần ghi nhớ rằng mối quan hệ nghịch biến này là phi tuyến.
Trong bài này, giả sử bạn có một trái phiếu mệnh giá $100, lãi coupon 10% và còn 20 năm đến ngày đáo hạn. Lưu ý đây là trái phiếu khác với trái phiếu bạn đã làm việc trước đó! Mục tiêu của bạn là định giá trái phiếu này tại các mức lợi suất khác nhau bằng cách sử dụng hàm bondprc(), vốn đã có sẵn trong không gian làm việc của bạn.
Bài tập này là một phần của khóa học
Định giá và Phân tích Trái phiếu bằng R
Hướng dẫn bài tập
- Tạo vector
prc_yldtừ 2% (0.02) đến 40% (0.40) với bước nhảy 1% (0.01) bằng hàm seq(). - Dùng
data.frame()để chuyểnprc_yldthành một data frame. - Dùng vòng lặp
forđã viết sẵn vớibondprc()để tính giá trái phiếu tại các mức lợi suất trongprc_yld. Hãy cố gắng hiểu cách vòng lặp vận hành. - Đối tượng
prc_yldcủa bạn giờ có một cột lợi suất (prc_yld) và một cột giá (price). Vẽ đối tượng này bằng đoạn mã đã viết sẵn để xem mối quan hệ giữa giá và lợi suất đến ngày đáo hạn (YTM).
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# Generate prc_yld
prc_yld <- seq(___, ___, ___)
# Convert prc_yld to data frame
prc_yld <- data.frame(___)
# Calculate bond price given different yields
for (i in 1:nrow(prc_yld)) {
prc_yld$price[i] <- bondprc(100, 0.10, 20, prc_yld$prc_yld[i])
}
# Plot P/YTM relationship
plot(___,
type = "l",
col = "blue",
main = "Price/YTM Relationship")