私は次のような動物園の時系列を持っています:
>> 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などです。これらの時刻を10分の最も近い整数倍に変更します(たとえば、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")