[英]R - How to use rollapply on functions from other package like maxdrawdown from tseries?
I am trying to use rollapply
from zoo package with function maxdrawdown
from tseries package: 我试图用rollapply
从动物园包功能maxdrawdown
来自T系列包装:
library(zoo)
library(tseries)
x <- c(1,2,4,6,7,10,8,6,5,4,6,7,8)
y <- zoo(x)
z <- rollapply(y,3,maxdrawdown,fill=NA,align="right")
However I get this error message: 但是我收到此错误消息:
Error in zoo(rval, index(x)[i]) :
“x” : attempt to define invalid zoo object
Does that mean I cannot use rollapply
on function maxdrawdown
? 这是否意味着我不能使用rollapply
上功能maxdrawdown
? Is there alternative solution to work this out? 是否有替代解决方案来解决这个问题?
maxdrawdown
返回一个列表,但我们只想要该列表的maxdrawdown
组件,所以试试这个:
rollapplyr(y, 3, function(x) maxdrawdown(x)$maxdrawdown, fill = NA)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.