Chuyển mã của bạn thành hàm

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

Clifford Ang

Senior Vice President, Compass Lexecon

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

Ta sẽ định giá nhiều trái phiếu trong khóa học này
Lặp lại các bước ở chương trước
Tạo hàm bondprc() để đơn giản hóa tính toán

Các bước định giá trái phiếu

Khái quát các đầu vào:
- p là mệnh giá
- r là lãi coupon
- ttm là thời gian đáo hạn
- y là lợi suất
Cũng làm mã tổng quát hơn

Các bước định giá trái phiếu

cf <- c(rep(p * r, ttm - 1), p * (1 + r))

rep(x, y) - lặp giá trị x y lần
x = p * r = tiền coupon
y = ttm - 1 = thời gian đến đáo hạn trừ một năm
p * (1 + r) = gốc + coupon cuối cùng

Các bước định giá trái phiếu

cf <- data.frame(cf)

Chuyển sang data frame để thêm biến (như phần trước)

cf$t <- as.numeric(rownames(cf))

Tạo chỉ số thời gian để chiết khấu
- rownames() của cf bằng 1, 2, 3, 4, đến ttm của trái phiếu
- Cần as.numeric() để đọc là số

Các bước định giá trái phiếu

cf$pv_factor <- 1 / (1 + y)^cf$t

Tính hệ số PV

cf$pv <- cf$cf * cf$pv_factor

Tính PV của từng dòng tiền

sum(cf$pv)

Cộng PV để ra giá trị trái phiếu

Gói mã thành hàm

Tạo hàm bondprc()
Hàm nhận đầu vào p, r, ttm, và y

bondprc <- function(p, r, ttm, y){
   cf <- c(rep(p * r, ttm - 1), p * (1 + r))
   cf <- data.frame(cf)
   cf$t <- as.numeric(rownames(cf))
   cf$pv_factor <- 1 / (1 + y)^cf$t
   cf$pv <- cf$cf * cf$pv_factor
   sum(cf$pv)
}

Ayo berlatih!

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

Preparing Video For Download...