r - R を使用した VaR 計算に rollapply 関数を使用する

Question

20 期間のローリング ウィンドウでバリュー アット リスク (VaR) を計算するために、次のことを行いました。

require(PerformanceAnalytics); require(zoo)
data(edhec)
class(edhec) # [1] "xts" "zoo"
class(edhec$CTAGlobal) # "NULL"
var1<-rollapply(edhec,width=20,FUN=function(edhec) VaR(R=edhec,p=.95,method="modified"),by.column=TRUE)

目的の出力が生成され、別のデータで同じことを試しました。

data(managers)
class(managers) # [1] "xts" "zoo"
class(managers$HAM4) # [1] "xts" "zoo"
var2<-rollapply(managers,width=20,FUN=function(managers) VaR(R=managers,p=.95,method="modified"),by.column=TRUE)

しかし、次のエラーが発生します。

Error in dimnames(cd) <- list(as.character(index(x)), colnames(x)) : 
   'dimnames' applied to non-array 

この違いの理由と、このエラーを修正する方法を教えてください。