r - サンプル外 VAR(1) ローリング ウィンドウ、平均絶対誤差

Question

親切に助けてください、どんなアドバイスもありがとう！

VAR(1) ローリング ウィンドウの MAE (平均絶対誤差) を計算しようとしていますが、エラーを解決できません。コード：

RRECG <- data.frame(na.omit(cbind(R1,R2,E1,C1,G1)))
set.seed(123)
y<-Df$R1
S=171;h=113;
error1.h<-c()
for (i in S:(length(y)-h))
{
  VARO.sub<- VAR(na.omit(RRECG[(1:i),],p=1,type="const"))
  predict.h1<-predict(VARO.sub,n.ahead=h)
  error1.h<-c(error1.h,y[i+h]-predict.h1)
}
summary(abs(error1.h))

エラーメッセージは次のとおりです。

y[i + h] のエラー - predict.h1 : 二項演算子への数値以外の引数

試した：

Also tried:
``` predict.h1<-as.numeric(predict(VARO.sub,n.ahead=h))
But not even close to resolve the issue. Please kindly help, thank you!