shi1<-ts(w[,1])
> shi1.arima<-auto.arima(shi1)
>  shi1.forecast<-forecast(shi1.arima,h=30)
> plot(w[,1],type="l")
> plot(shi1.forecast)