Прогнозирование с использованием объекта ARDLmodel

Question

Я пытаюсь запустить приведенные ниже коды с целью прогнозирования с использованием модели ARDL. Однако результат, который я получаю, дает мне указанную ниже ошибку. Был бы признателен за руководство. Спасибо.

Коды ниже для справки

      1. Set up Train Set Data

    cutoffYearStart <- 1947.75
    cutoffYearEnd <- 2016.75
    TrainData <- Data[which(Data$Time>=cutoffYearStart & Data$Time<=cutoffYearEnd),] 
    attach(TrainData)


2. Set up Test Set Data

    cutoffYearStart <- 2017.75
    cutoffYearEnd <- 2018.75
    TestData <- Data[which(Data$Time>=cutoffYearStart & Data$Time<=cutoffYearEnd),] 
    attach(TestData)

3. Run Model and Forecast

    Matrix<-data.matrix(TestData[,c(3,5,15,21)], rownames.force = NA)
    
    model.ardlDlm1= ardlDlm(Real_GDP_Ann_Lvl~Scientific_and_Technical_Journal_Articles_Ann_Yoy+Total_Investment_Ann_Lvl+Employment_Ann_Yoy,data=TrainData,p=1,q=1)
    summary(model.ardlDlm1)
    
    ForecastResult<-forecast(model.ardlDlm1, Matrix, h = 4 , interval = TRUE, level = 0.95 , nSim = 500)

Выход: ForecastResult

Ошибка в as.vector (coefs)% *% obs: несоответствующие аргументы