在R中的XTS对象中创建Growth Of$1000列

Question

我正在为我认为简单的任务而挣扎。我正在计算一些投资回报，并希望在回报栏旁边创建一个显示1000美元增长的栏。理想情况下，这：

Index       Return      
4/27/90     -0.011444191    989 
5/30/90     0.000582282     989 
6/28/90     0.007011319     996 
7/30/90     0.005969896     1,002 
10/30/90    0.007221412     1,009 

第三列等于上面的值乘以（1+Return），然后向下填充。因此，1009的值是通过乘以1002*（1+0.005969896）得到的

我试着用滞后函数来做这件事，但我的头因为盯着它看太久而旋转。

我使用成功地获得了1009的最终数字

 Account = 1000
 for (i in na.omit(sample$Return)){
   Account  = (1+i) * Account
 }

但是，我希望在xts对象中有一列正在运行的合计。如何做到这一点？

这将创建我在上表中使用的没有第三列的xts对象。

sample <- structure(c(-0.0114441907965878, 0.000582281990849955, 0.00701131947964186, 
0.00596989588048895, 0.00722141248178086), .indexCLASS = "Date", tclass = "Date", tzone = "UTC", src = "yahoo", updated = structure(1414972280.65536, class = c("POSIXct", 
"POSIXt")), index = structure(c(641174400, 644025600, 646531200, 
649296000, 657244800), tclass = "Date"), .Dim = c(5L, 1L), .Dimnames = list(
    NULL, "Return"), class = c("xts", "zoo"))

谢谢。

Answer 1

尝试cumprod

sample$Account <- 1000 * cumprod(1+sample$Return)
sample
                 Return   Account
1990-04-27 -0.011444191  988.5558
1990-05-30  0.000582282  989.1314
1990-06-28  0.007011319  996.0665
1990-07-30  0.005969896 1002.0130
1990-10-30  0.007221412 1009.2489