# Result : cash.flow.table
# Result : future value = 232540.78
# Result : present value = 206330.96
year = c(1:5)
capital = c(63000,1300,1300,1600,1300)
year1 = c(60000,0,10000,0,0)
year2 = c(0,0,30000,50000,0)
cashflowdata <- data.frame (year, capital, year1, year2)
cashflow(0.055, cashflowdata)
Run the code above in your browser using DataLab