Я пытаюсь выстроить «от l oop» до l oop более чем по ряду комбинаций продуктов / местоположений для прогнозирования ежедневных продаж.
Фактический список названий продуктов составляет около 300 , поэтому я уменьшил его.
Я оставил немного средней части кода, а также упростил автоматический arima код.
Когда Я запускаю l oop, я вижу, что он предоставляет прогнозы один за другим, я смотрю на матрицу результатов, и единственными результатами являются дата и последний ARIMA прогноз.
Из чего Я могу сказать, что он только сохраняет последний прогноз и перезаписывает предыдущие, я просмотрел предыдущие посты в топи c и попробовал эти решения безуспешно.
Конечный результат должен быть dataframe со столбцом для даты и 30 дней прогнозов в 5 столбцах (матрица 30 x 6).
x <- ((Date_Summary$Product_Names[2:NROW(Date_Summary$Product_Names)]))
for (i in 1:length(x[1:5]))
{
Product<- x[i]
Big_Date_Frame <- assign(colnames(Volumes[i+1])[1], as.data.frame(cbind(Volumes[1], Volumes[i+1]))) #creating a data frame from the product name
Start_Date <- as.Date(Date_Summary$start_date[Date_Summary$Product_Names==Product])
Start_Date <- Start_Date +1
Small_Data_Frame <- subset(Big_Date_Frame, DATE >= Start_Date & DATE <= today) #Removing the time periods
Forecast <- (auto.arima(Small_Data_Frame$Daily_Sales))
ARIMA_Prediction <- forecast::forecast(Forecast,xreg=Predict_matrix, level = c(95), h = NROW(Predict_matrix))
ARIMA_Prediction$mean <- as.vector(ARIMA_Prediction$mean)
Results_matrix <- cbind(Results_matrix, ARIMA_Prediction$mean)
print(Results_matrix)
}