如何编写自己的R cumsum()函数

Question

我对R很陌生，想写我自己的R cumsum((函数。我如何创建一个函数，它采用长度为N的值向量来计算累积和。感谢

Answer 1

以下是使用{purrr}包中的accumulate的cumsum函数：

alt_cumsum <- function(x) {
require(purrr)
accumulate(x, `+`)
}

示例用法：

> alt_cumsum(1:5)
[1]  1  3  6 10 15