Вычисление скользящего среднего за 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)