Прогноз спроса с использованием ARIMA в R

Question

l oop превращает мое прогнозируемое значение в 2,4 миллиона, ни один из ежедневных данных о продажах даже близко не подходит к этому. понятия не имею, что происходит. Я немного исправил прогноз, используя arima () вместо auto.arima. но он повторяет то же значение 31K для всех значений в sales.test

train_index <- 30
n_total <- nrow(NEWData)
sales.train1 <- NEWData[1:(train_index),]
sales.test <- NEWData[(train_index+1):n_total,]
predicted <- n_total-train_index

for (i in 1:(n_total-train_index)) {
  sales.train <- NEWData[1:(train_index-1+i),]
  arima_model <- auto.arima(as.ts(NEWData$Order.Total))
  pred <- forecast(arima_model, 1)
  predicted[i] <- pred$mean
}