计算每周系列的12个月移动平均值，但是固定在该月的最后一天

Question

我有一个zoo对象oi.zoo，包含每周数据。我想用12个月的移动平均值（这很容易）来解决这个问题，但我无法弄清楚如何在月末锚定移动平均窗口的右边缘（与之对应）我正在倒退的因素）。例如：

> head(oi.zoo)
1986-01-15 1986-01-31 1986-02-14 1986-02-28 1986-03-14 1986-03-31 
   2966182    2986748    2948045    2990979    2993453    2936038 
> head(mkt)
1926-07-31 1926-08-31 1926-09-30 1926-10-31 1926-11-30 1926-12-31 
      2.62       2.56       0.36      -3.43       2.44       2.77

我还有一些其他因素，并计划使用dynlm来回归。

谢谢！

Answer 1

oi.zoo.monthly <- aggregate(oi.zoo,yearmon,sum)
oi.zoo.ma <- 0.5 * rollapply(oi.zoo.monthly,12,mean,align="right")
mkt.mo <-aggregate(mkt,yearmon,identity)