如何在R中编写动态累积倍数

use*_*789 1 r

假设我有一个向量x:

x <- c(X1, X2, X3, ..., Xn)
Run Code Online (Sandbox Code Playgroud)

我想编写一个自动获取结果系列的函数:

y <- c(X1, X1*X2, X1*X2*X3, ..., X1*X2*X3*...*Xn)
Run Code Online (Sandbox Code Playgroud)

有人能告诉我如何在R中这样做吗?

sgi*_*ibb 7

看看?cumprod:

 cumprod(1:10)
 # [1]       1       2       6      24     120     720    5040   40320  362880 3628800
Run Code Online (Sandbox Code Playgroud)