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で学ぶ債券の評価と分析