r - R中具有不同时间窗口的移动平均线

Question

我想计算某个时间窗口内的移动平均值，而不在时间序列的开头生成 NA。例如，如果我将时间窗口设置为 3，则前 2 个观察将具有 NA。我想要的是第一次观察的时间窗口为 1，第二次观察的时间窗口为 2，然后所有剩余观察的时间窗口为 3。

我目前的代码:

#example data
x <- c(3,9,2,8,4,6,5,8)
#moving average with time window of length 3
(ma3 <- filter(x,rep(1/3,3),sides=1))

Answer 1

除了蛮力之外，我没有看到其他方法:

使用 rollapply来自包裹 zoo而不是 filter :

c(x[1], mean(x[1:2]), rollapply(x, width=3, FUN=mean))