Valutazione e analisi delle obbligazioni in R
Clifford Ang
Senior Vice President, Compass Lexecon
uniroot() in R per automatizzareytm <- function(cf) {
uniroot(bval, c(0, 1), cf = cf)$root
}
ytm() con uniroot()cf) e usa la funzione bvalc(0,1) limita la ricerca a un rendimento tra 0% e 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)
bval() che usa il vettore di flussi modificato (cf)bondprc()t)i)Valutazione e analisi delle obbligazioni in R