NNETAR中的FOR循环但scale.default中的错误（x，center = center，scale = scale）：'center'的长度必须等于'x'的列数

Question

我正在尝试使用针对两列的for循环对我的数据集进行NNETAR预测，并且我不断收到此错误 “scale.default中的错误（x，center = center，scale = scale）：'center'的长度必须等于'x'的列数

有人可以修复此错误吗？或任何其他方式来表示我的代码

     library(forecast)
     library(ggplot2)
     Data_ts <- ts(NNETAR[,-1],f=1,s=1991,e=2020)
     h <- 100
     ns <- ncol(Data_ts)
     fit<-nnetar(Data_ts)
     NNETAR <- matrix(0, nrow=h, ncol=ns)
     for (i in 1:ns){
      NNETAR[,i] <- simulate(fit[,i]), h=h,)}
    write(t(NNETAR), file="R_Output_NNETAR_Test.csv",sep=",",ncol=ncol(NNETAR))