Скользящее среднее гармоническое с R (число n дней)

Question

Я хочу получить гармоническое среднее n дней

Например

a <- c (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) </p>

assuming month end is `3, 6, 9 ,12`

If n = 2, i want to get the harmonic mean of 

1,2,3,4,5 (t-2~ t+2 with midpoint 3)
4,5,6,7,8 (t-2~ t+2 with midpoint 6) and so on

if n = 1 it would be
harmonic mean of 2,3,4 for month-end :3 

У меня ежедневный доход в виде хтс. Все, что я хочу сделать, это получить среднее гармоническое n дней. Спасибо

Answer 1

Мне не понятно, что ты пытаешься сделать.Я предполагаю, что вы хотите вычислить среднее значение скользящей гармоники с фиксированной шириной окна n;для этого мы можем использовать zoo::rollapplyr

n <- 5
rollapplyr(a, width = n, FUN = function(x) 1 / mean(1 / x), fill = NA)
#[1]        NA        NA        NA        NA  2.189781  3.448276  4.575163
#[8]  5.652759  6.705695  7.744315  8.773818  9.797130 10.816035 11.831685
#[15] 12.844861