在新版本的xts中，rollapply和xts不起作用

Question

如果我运行这个简单的代码：

my_xts <- .xts(1:10*1,1:10)
rollapply(my_xts, list(seq(-2, 0)), sum, partial = 1)

在新版本的xts (0.9-3)中，我得到：

Error in rollapply.xts(my_xts, list(seq(-2, 0)), sum, partial = 1) : 
(list) object cannot be coerced to type 'integer'
In addition: Warning message:
In rollapply.xts(my_xts, list(seq(-2, 0)), sum, partial = 1) :
partial argument is not currently supported

而在旧的xts (0.8-6)中运行得很流畅。

这似乎与选项的宽度有关。在rollapply的小插曲中，“宽度可以被看作是与当前时间相比的偏移量”。在新版本中，这是不可能的。

有什么解决方法吗？有没有可能以一种不同的方式调用rollapply，以实现旧的行为？

Answer 1

直到0.8-9版，rollapply.xts才被注册为S3方法。这就是为什么它以前对你有效。由于没有xts方法，rollapply.zoo将被分派，这将返回一个zoo对象(而不是xts对象)。

rollapply.xts目前不支持width=list(...)，但您可以在调用rollapply之前将您的xts对象转换为zoo对象，从而获得与之前相同的结果。

rollapply(as.zoo(my_xts), list(seq(-2, 0)), sum, partial = 1)