Question

简单的动物园对象是

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
as.data.frame(rollapply(z, width=3, mean, align="right"))
           rollapply(z, width = 3, mean, align = "right")
1970-02-03                                       12.00000
1970-02-04                                       13.00000
1970-02-05                                       14.00000
1970-02-06                                       13.33333
1970-02-07                                       12.66667
1970-02-08                                       12.00000
1970-02-09                                       13.00000
1970-02-10                                       14.00000
1970-02-11                                       13.33333
1970-02-12                                       12.66667
1970-02-13                                       12.00000
1970-02-14                                       13.00000
1970-02-15                                       14.00000

是否有可能使开始观察是固定的，即在“1970-02-04”日期我们平均超过'11,12,13,14'而不是'12,13,14'等等？当然，人们可以通过循环来做到这一点，但如果问题有点复杂，那么循环速度非常慢，而且我正在寻找与apply或rollapply一样快的东西。

Answer 1

将宽度设置为等于系列的长度，并使用partial = TRUE：

rollapplyr(z, length(z), mean, partial = TRUE)

您也可以使用cumsum(z) / seq_along(z)

rollapply：在每个滑动窗口中修复起始观察？

1 个答案: