R中的写入点预测值 data\u test

帮助页面，

？forecast

，非常简单：

平均值

作为时间序列的点预测

data_test <- NULL
for(i in 1:ncol(dataset)) {
  col <- ts(dataset[,i])
  fit1 <- auto.arima(col, trace=TRUE))
  fcast <- forecast(fit1,h=12, level=c(90,95))
  data_test <- cbind(data_test, fcast$lower)
}

write.table(data_test, "Forecast.csv", sep=";", dec=",", append=TRUE)