R - 如何使用rollapply從其他軟件包的功能，如T系列的maxdrawdown？

Question

我試圖從T系列封裝功能maxdrawdown使用rollapply從動物園包：

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") 

不過，我收到此錯誤信息：

Error in zoo(rval, index(x)[i]) : 
「x」 : attempt to define invalid zoo object 

這是否意味着我無法在功能maxdrawdown使用rollapply？有沒有其他解決方案來解決這個問題？

Answer 1

maxdrawdown返回一個列表，但我們只是希望該列表的maxdrawdown組件，以便試試這個：

rollapplyr(y, 3, function(x) maxdrawdown(x)$maxdrawdown, fill = NA)