ダミーの動物園オブジェクトは次のように作成されます。
z <- zoo(11:15, as.Date(31:45))
as.data.frame(z)
z
1970-02-01 11
1970-02-02 12
1970-02-03 13
1970-02-04 14
1970-02-05 15
1970-02-06 11
1970-02-07 12
1970-02-08 13
1970-02-09 14
1970-02-10 15
1970-02-11 11
1970-02-12 12
1970-02-13 13
1970-02-14 14
1970-02-15 15
rollapply function can be used to calculate mean as:
as.data.frame(rollapply(z, width=3, by=2, mean, align="left"))
1970-02-01 12.00000
1970-02-03 14.00000
1970-02-05 12.66667
1970-02-07 13.00000
1970-02-09 13.33333
1970-02-11 12.00000
1970-02-13 14.00000
私が望むフォーマット：以下に示すように、終了日を持つ別の列（II列/終了ウィンドウ）を追加することは可能ですか[rollapplyまたは上記のxts/zooオブジェクトを使用した他の方法を使用して]
start_window end_window mean
1970-02-01 1970-02-03 12.00000
1970-02-03 1970-02-05 14.00000
1970-02-05 1970-02-07 12.66667
1970-02-07 1970-02-09 13.00000
1970-02-09 1970-02-11 13.33333
1970-02-11 1970-02-13 12.00000
1970-02-13 1970-02-15 14.00000
そうする方法を提案してください。前もって感謝します