之前照着书上写的预测过一次虽然结果不大好好歹有图像，现在命令都通不过了呀。呀。呀！
根据《R语言时间序列中文教程》：
> x.fore=predict(x.fit,n.head=10)
> ts.plot(x,x.fore$pred)
错误于.cbind.ts(list(...), .makeNamesTs(...), dframe = dframe, union = TRUE) :
  非时间序列的长度不对
> 之前用这个成功过一次啊
又根据《时间序列分析及应用-R语言（2nd Edt）》：
> plot(x.fit,n.head=25,type='b',xlab='Time',ylab='AE/mV')
错误于min(x, na.rm = na.rm) : 'type'(list)参数不对   

又根据度娘知道提供的：
> nobs=length(x)
> fit=arima(x,order=c(0,1,1),xreg=1:nobs)
警告信息：
In stats:::arima(x = x, order = order, seasonal = seasonal, xreg = xreg,  :
  possible convergence problem: optim gave code=1
> fore=predict(fit, 15, newxreg=(nobs+1):(nobs+15))
> ts.plot(fore)
错误于xy.coords(x, NULL, log = log) :
  (串列)对象不能强制改变成'double'种类

我愁死了，你让我预测一下嘛