我正在尝试编写一个简单的函数来重现 Excel 中的 PRODUCT 函数，该函数可用于计算投资返回。给定一段时间内的返回向量(如下所示)，我想计算整个持有期间的总返回。
library(scales)
vec=c(2.1,3.1,5,-2.3,1.7,-9.8)
vecpercent=percent(vec/100)
在 Excel 中，这将被计算为一个数组函数，如下所示:{=1+PRODUCT(B4:B9)-1}，如果“vecpercent”中的返回值在单元格 B4 到 B9 中。这相当于 (1+r1) (1+r2)...(1+rn)，其中 n 是周期数。
我试图用一个 for 循环来解决这个问题，我意识到这是 R 世界的禁忌。如果可能的话，我很想听听更好的方法。但是如果需要一个循环，我是否还需要创建一个“帮助”列，在其中将每个返回率与前一个返回率相乘？
谢谢你。
最佳答案
我认为您正在寻找(矢量化)cumprod功能:
cumprod(1 + vec / 100) - 1
# [1] 0.0210000 0.0526510 0.1052835 0.0798620 0.0982197 -0.0094058
如果您只查找最后一个值，可以使用
prod :prod(1 + vec / 100) - 1
[1] -0.0094058
(您可以再次输入
percent()，以获得漂亮的格式。)
关于r - 在 R 中迭代复合返回(如 Excel 乘积函数)，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/27750800/