如何使用AR计算预测

Question

我正在尝试使用自回归模型在R中强制播出时间序列值。这是我的代码：

install.packages("Quandl")
library(Quandl)
data <- Quandl("DOE/RWTC")
data$Date <- NULL
revdata <-  data[rev(seq_len(nrow(data))), ]
data.ts <- ts(revdata, start=c(1995, 01, 16), end=c(2014, 12, 8), freq=365)
# plot.ts(data.ts)

data.ar <- ar(data.ts, method="ols")

如何使用AR模型预测接下来10个时间段的值并以方便的方式绘制它们？

任何帮助将不胜感激！