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로 배우는 채권 가치 평가와 분석