> w[,1]=ts(w[,1])
> m1=arima(w[,1],order=c(1,2,3))
>  plot(w[,1],type="l")
> forecast<-forecast(m1,h=50)
> plot(forecast)

想把预测的曲线接到原来曲线上，为啥结果是这样的图？