我有一个动物园时间序列如下:
>> head(ww)
(11/22/08 11:37:00) (11/22/08 12:07:00) (11/22/08 12:22:00) (11/22/08 12:37:00)
0.087114 0.055422 0.055250 0.059483
(11/22/08 12:52:00) (11/22/08 13:07:00)
0.057896 0.061808
如您所见,时间是 11:37、12:07、12:22 等。我想将这些时间更改为最接近的十分钟整数倍 - 例如 XX:10、XX:20。在这种情况下,11:37 将变为 11:40,12:07 将变为 12:10,12:22 将变为 12:20。
我找到了如何将它聚合到最近的分钟:
wholemin <- function(x) trunc(x, units="minutes")
result = aggregate(r, wholemin, head, 1)
但我不能trunc
用来聚合到秒、分钟、小时等以外的任何东西。
我该怎么做呢?
为了便于示例,输出dput(head(ww)
如下:
structure(c(0.087114, 0.055422, 0.05525, 0.059483, 0.057896,
0.061808), index = structure(c(14205.4840277778, 14205.5048611111,
14205.5152777778, 14205.5256944444, 14205.5361111111, 14205.5465277778
), format = structure(c("m/d/y", "h:m:s"), .Names = c("dates",
"times")), origin = structure(c(1, 1, 1970), .Names = c("month",
"day", "year")), class = c("chron", "dates", "times")), class = "zoo")