NAV <- data.frame(timestamp = seq(as.Date("2017-01-01"),
as.Date("2017-01-10"),
by = "1 day"),
NAV = c(100:104, 205:209))
cf <- data.frame(timestamp = c(as.Date("2017-01-01"),
as.Date("2017-01-06")),
cashflow = c(100, 100))
unit_prices(NAV, cf, cf.included = TRUE)
## timestamp NAV price units
## 1 2017-01-01 100 100.0000 1.000000
## 2 2017-01-02 101 101.0000 1.000000
## 3 2017-01-03 102 102.0000 1.000000
## 4 2017-01-04 103 103.0000 1.000000
## 5 2017-01-05 104 104.0000 1.000000
## 6 2017-01-06 205 105.0000 1.952381
## 7 2017-01-07 206 105.5122 1.952381
## 8 2017-01-08 207 106.0244 1.952381
## 9 2017-01-09 208 106.5366 1.952381
## 10 2017-01-10 209 107.0488 1.952381
Run the code above in your browser using DataLab