使用apply.weekly()强制整整几周

Question

我正在试图弄清楚xts(或动物园)使用apply.period之后的时间.考虑以下:

> myTs = xts(1:10, as.Date(1:10, origin = '2012-12-1'))
> apply.weekly(myTs, colSums)
           [,1]
2012-12-02    1
2012-12-09   35
2012-12-11   19

我认为'2012-12-02'的意思是"截至2012-12-02的那一周,总和为1".所以基本上时间是一周结束.

但问题是与"二零一二年十二月十一日" -我认为它在做什么是说,11日是一周的最后一天,这是给,所以它给人随着时间.

是否有任何方法强制它给它结束的星期日,即使那天不包括在数据集中？

Answer 1

尝试这个：

nextsun <- function(x) 7 * ceiling(as.numeric(x-0+4) / 7) + as.Date(0-4)
aggregate(myTs, nextsun, sum)

这里nextsun是从Zoo快速参考中nextfri给出的代码派生而来，方法是将5（星期五）替换为0（星期日）。