这是ARIMA模型分析和forecast包分析的结果price_forecast,试了好多方法想把price_forecast这个结果值导出都不行，望高手指教。感激不尽。

> price<-read.table(filepath,sep=",",nrows=637,skip=637)
> filepath<-system.file("data","oil_price.txt",package="datasets")
> price<-read.table(filepath,sep=",",nrows=637,skip=637)
> price_arima<-arima(price$V1,c(1,1,0))
> price_forecast<-forecast(price_arima,h=15)
> price_forecast
    Point Forecast    Lo 80    Hi 80    Lo 95    Hi 95
638       17.99021 17.38892 18.59149 17.07062 18.90979
639       17.99021 17.13110 18.84932 16.67632 19.30410
640       17.99021 16.93432 19.04610 16.37536 19.60506
641       17.99021 16.76884 19.21158 16.12228 19.85814
642       17.99021 16.62324 19.35718 15.89962 20.08080
643       17.99021 16.49173 19.48869 15.69848 20.28194
644       17.99021 16.37086 19.60956 15.51363 20.46679
645       17.99021 16.25841 19.72201 15.34165 20.63877
646       17.99021 16.15283 19.82759 15.18018 20.80024
647       17.99021 16.05299 19.92743 15.02749 20.95293
648       17.99021 15.95805 20.02237 14.88229 21.09813
649       17.99021 15.86736 20.11306 14.74358 21.23683
650       17.99021 15.78038 20.20004 14.61056 21.36985
651       17.99021 15.69670 20.28372 14.48259 21.49783
652       17.99021 15.61596 20.36446 14.35911 21.62131

> save(price_forecast,file="c:\\2.txt")-----------------------------成功，但导出是乱码
> dump(price_forecast)
错误于FUN(X[[2L]], ...) : 第一个变元不对
> cat(price_forecast)
错误于cat(list(...), file, sep, fill, labels, append) :
  cat目前还不能处理1(种类为'list')变元

-----------------------------------------------

怎么办？