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

问题描述

我是 R 新手，想编写 我自己的 R cumsum() 函数。如何创建接受长度为 N 的值向量来计算累积和的函数。 谢谢

解决方法

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

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

示例用法：

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