有没有办法在“窗口”或“范围”上使用应用函数?这个例子应该用来说明:
a <- 11:20
现在我想计算连续元素的总和。 IE。
[11+12, 12+13, 13+14, ...]
我能想到的处理方法是:
a <- 11:20
b <- NULL
for(i in 1:(length(a)-1))
{
b <- c(b, a[i] + a[i+1])
}
# b is 23 25 27 29 31 33 35 37 39
或者,
d <- sapply( 1:(length(a)-1) , function(i) a[i] + a[i+1] )
# d is 23 25 27 29 31 33 35 37 39
有一个更好的方法吗?
我希望有类似的东西:
e <- windowapply( a, window=2, function(x) sum(x) ) # fictional function
# e should be 23 25 27 29 31 33 35 37 39
最佳答案
这是使用 zoo 包中的 rollapply
的替代方案
> rollapply(a, width=2, FUN=sum )
[1] 23 25 27 29 31 33 35 37 39
zoo 包还提供
rollsum
功能> rollsum(a, 2)
[1] 23 25 27 29 31 33 35 37 39
关于r - 在 'window' 中使用 apply,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/20604919/