Ước tính lợi suất trái phiếu

Định giá và Phân tích Trái phiếu bằng R

Clifford Ang

Senior Vice President, Compass Lexecon

Tìm lợi suất bằng thử–sai

Với trái phiếu giao dịch, có thể suy ra lợi suất
Biết giá và dòng tiền, bạn có thể "đoán" lợi suất
Lợi suất “đúng” làm giá bằng với PV của dòng tiền

Lặp qua các mức đoán khác nhau

Xét trái phiếu mệnh giá $100, coupon 5%, đáo hạn 10 năm, giá $92.64
Đoán 1: 5% → Giá $100 (quá cao)
Đoán 2: 7% → Giá $85.95 (quá thấp)
Đoán 3: 6% → Giá $92.64 (đúng)

Tự động hóa quy trình

Thử–sai kém hiệu quả
Có thể dùng hàm uniroot() trong R để tự động hóa

Tạo hàm với uniroot()

ytm <- function(cf) {
    uniroot(bval, c(0, 1), cf = cf)$root
}

Tạo hàm ytm() dùng uniroot()
Hàm nhận vector dòng tiền đã chỉnh (cf) và dùng hàm định giá đã chỉnh (bval)
c(0,1) giới hạn lợi suất tìm kiếm từ 0% đến 100%

Vector dòng tiền đã chỉnh

cf <- c(-92.64, 5, 5, 5, 5, 5, 5, 5, 5, 5, 105)

Phần tử đầu là giá trái phiếu, ghi âm
Từ phần tử thứ hai là dòng tiền: coupon cộng mệnh giá
Cùng trái phiếu: Giá -$\$92.64$, mệnh giá $\$100$, coupon 5%, đáo hạn 10 năm

Hàm định giá trái phiếu đã chỉnh

bval <- function(i, cf, t = seq(along = cf))  sum(cf / (1 + i)^t)

Cần tạo hàm định giá trái phiếu bval() dùng vector dòng tiền đã chỉnh (cf)
Cùng logic như hàm bondprc()
Tạo biến thời gian (t)
Chiết khấu dòng tiền theo lãi suất (i)

Ayo berlatih!

Định giá và Phân tích Trái phiếu bằng R

Preparing Video For Download...