計算每週系列的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)