R 用累积法计算股息再投资

这就是我的data.table的外观。A:E列只是为了与excel进行比较。专栏

NewShares

是我想要的专栏。我的数据中没有该列

            A           B        C         D         E          F
 dt<-fread('                 
  InitialShares     Level     Price    Amount   CashPerShare NewShares
         1573.333       0      9.5339   13973.71    0          1573.333
           0            1      10.2595    0       .06689       1584.73
           0            1      10.1575    0       .06689       1596.33
           0            1      9.6855    0       .06689       1608.58')

---

生成字段后，请注意

新闻共享

的小数点，以验证您的方法

如果你展开你的公式，你会意识到这是可行的：

dt[, NewShares := cumprod(1+Level*CashPerShare/Price/0.9)*InitialShares[1]]

---

@埃迪，对不起。我在C栏输入了错误的价格。我更新了帖子。非常感谢你的回答！我也尝试了

cumprod

方法。由于某种原因，它无法工作。

dt[, NewShares := cumprod(1+Level*CashPerShare/Price/0.9)*InitialShares[1]]