Computing the future value of an uneven cash flow series
fv.uneven(r, cf)
r
stated annual rate
cf
uneven cash flow
fv.simple
fv.uneven(r=0.1, cf=c(-1000, -500, 0, 4000, 3500, 2000))