Cross validation in VAR in R

Question

I have cross-validation with applying the VAR model that has the code below:

Fold 1

enter code here

*mae1 <- mae2 <- mae3 <