我想对示例数据执行以下简单计算

a<-seq(1:10)

现在,有一个内置函数,该函数返回一个 vector :(a[1]+a[2],a[3]+a[4],...,a[9]+a[10])。注意,我可以使用for循环或rollapply(并删除一些元素)来实现此目的。但是,我想知道是否有一个到目前为止尚不知道的内置函数。

最佳答案

zoo软件包中的rollapply可以以一种简单的方式做到这一点:

library(zoo)
rollapply(a, 2, by = 2, sum)

08-24 12:08