I couldn't resist the temptation.
Here is the example using the R package nleqslv.
<script>
library(nleqslv)
npv <- function (irr, cashFlow, times) sum(cashFlow / (1 + irr)^times)
CF <- c(-1000,500,500,500,500,500)
dates <-
c("1/1/2001","2/1/2002","3/1/2003","4/1/2004","5/1/2005","6/1/2006")
cfDate <- as.Date(dates,format="%m/%d/%Y")
times <- as.numeric(difftime(cfDate, cfDate[1], units="days"))/365.24
irr.start <- 0.05
# default Broyden ==> secant like method
nleqslv(irr.start, npv, control=list(trace=1), cashFlow=CF, times=times)
</script>
/Berend
--
View this message in context:
http://r.789695.n4.nabble.com/Secant-Method-Convergence-Method-to-replicate-Excel-XIRR-IRR-tp2338672p2339187.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
