在 R 中進行債券評價與分析
Clifford Ang
Senior Vice President, Compass Lexecon
uniroot() 來自動化ytm <- function(cf) {
uniroot(bval, c(0, 1), cf = cf)$root
}
uniroot() 建立 ytm() 函式cf),並使用修改版債券評價函式(bval)c(0,1) 將搜尋區間限制在 0% 到 100% 的殖利率cf <- c(-92.64, 5, 5, 5, 5, 5, 5, 5, 5, 5, 105)
bval <- function(i, cf, t = seq(along = cf)) sum(cf / (1 + i)^t)
cf)的債券評價函式 bval()bondprc() 相同t)i)貼現現金流在 R 中進行債券評價與分析