计算累积乘积/倍数

Question

假设我有一个向量x为：

x <- c(X1, X2, X3, ..., Xn)

我想写一个 function 自动得到这样的结果系列：

y <- c(X1, X1*X2, X1*X2*X3, ..., X1*X2*X3*...*Xn)

有人可以告诉我如何在 R 中执行此操作吗？

Answer 1

看看?cumprod ：

 cumprod(1:10)
 # [1]       1       2       6      24     120     720    5040   40320  362880 3628800