devtools::install_github("karlpolen/pme-calcs")
source("irr.z.r")
# Dates money moved in (negative) and out (positive)
dates <- as.Date(c(
"2015-01-01", "2016-01-01", "2017-01-01", #Capital calls -- cash put in
"2021-01-01", "2022-06-01", "2023-06-01", #Early distributions -- early cash paid out
"2024-01-01", "2025-01-01" #Final distributions -- final cash paid out
))
cashflows <- c(-1000, -800, -700, #Capital calls ($M)
500, 700, 900, 1200, 1500) #Distributions ($M)
#irr.z handles multiple IRR roots and GIPS compliance
result <- irr.z(dates, cashflows, gips = TRUE)
cat("Net IRR:", round(result$irr * 100, 2), "%\n")
#Net IRR: 17.43%