r - 计算 "rightmost"移动平均线？

Question

我想计算一些时间序列数据的移动平均值 (ma)，但我希望 ma 考虑从序列最右边开始的顺序 n，因此我的最后一个 ma 值对应于我的最后 n 个值的 ma系列。所需的功能 rightmost_ma会产生这个输出:

data <- seq(1,10)
> data
[1]  1  2  3  4  5  6  7  8  9 10

rightmost_ma(data, n=2)
NA 1.5 2.5 3.5 4.5 5.5 6.5 7.5 8.5 9.5 

我正在审查不同的可能性，例如包预测，但找不到如何涵盖此用例。请注意，对我的关键要求是为系列的最后一个元素提供有效的非 NA ma 值，或者换句话说，我希望我的 ma 在不“展望 future ”的情况下产生有效的结果。

Answer 1

看看rollmean动物园包中的功能

> library(zoo)
> rollmean(zoo(1:10), 2, align ="right", fill=NA)
  1   2   3   4   5   6   7   8   9  10 
 NA 1.5 2.5 3.5 4.5 5.5 6.5 7.5 8.5 9.5 

您也可以使用 rollapply

> rollapply(zoo(1:10), width=2, FUN=mean, align = "right", fill=NA)
  1   2   3   4   5   6   7   8   9  10 
 NA 1.5 2.5 3.5 4.5 5.5 6.5 7.5 8.5 9.5