1

私はtseriesパッケージrollapplyの機能を備えたzooパッケージから使用しようとしています:maxdrawdown

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

rollapplyそれはon functionを使用できないということmaxdrawdownですか? これを解決するための代替ソリューションはありますか?

4

1 に答える 1

3

maxdrawdownmaxdrawdownリストを返しますが、そのリストのコンポーネントが必要なだけなので、これを試してください：

rollapplyr(y, 3, function(x) maxdrawdown(x)$maxdrawdown, fill = NA)
于 2012-08-13T22:00:06.900 に答える