r - rollapply は過去 5 年間の平均

Question

私は、z を収集したような動物園 obj を持っています。

> z["2013-12",1]
       Allerona

2013-12-01 0.0 2013-12-02 0.0 2013-12-03 0.0 2013-12-04 0.0 2013-12-05 0.2 2013-12-06 0.0 2013-12-07 0.0 2013-12-08 0.2 2013-12-09 0.0 ....

降雨量の毎日の値を保存します。

rollapply usingi を使用して、5 日間の累積を計算できます。

m=rollapply(z, width=3, FUN=sum, by=1, by.column=TRUE, fill=NA, align="right")

大丈夫そうです

> m["2013-12",1] Allerona 2013-12-01 0.0 2013-12-02 0.0 2013-12-03 0.0 2013-12-04 0.0 2013-12-05 0.2 2013-12-06 0.2 2013-12-07 0.2 2013-12-08 0.2 2013-12-09 0.2 ...

5年前の各日のテーマ平均を計算するにはどうすればよいですか?

ありがとう

Answer 1

問題を整理しました。解決策は、rollapply の幅パラメーターにリストを使用することでした。ここのコードの下：

mean5year=rollapply(as.zoo(m), list(-365*5:1), function(x) {mean(x,na.rm = TRUE)},fill=NA)

どこ

list(-365*5:1)

同じ日にかかりますが、過去 5 年間です。NA がシーケンス内にある場合も、平均を計算するために na.rm =TRUE で平均を使用する必要があります。

Answer 2

SMA (x, n=5*365) 

トリックをしませんか？