代码如下
library
(readxl
)
library
(forecast
)
dat
<- read_excel
("rawdatacompet.xlsx",sheet
=1,na
="NA")
series1
<- dat
[,1]
series1
<- series1
[1:60,]
series1
<- ts
(series1
)
series1
<- as.double
(series1
)
fore
<- forecast
(auto.arima
(series1
,trace
= T
),h
=5)
fore
plot
(fore
)
结果如图 数据如下(蓝色部分表示待预测值): 代码系编程小白所写,如有错漏,敬请指正。
转载请注明原文地址:https://blackberry.8miu.com/read-5086.html