在使用ARIMA模型来预测我们的销量的时候，如果保存预测版本进DB，以供后续分析呢

1. 在定义变量阶段我们定义了dfResult      <- data.frame()

　　这是一个data frame

2. 预测的结果通常是一个vector

　　例如我们预测90个期间的数据：pred <- predict(fit, n.ahead = 1*90)

3. 假设我们每天都保存一次预测版本，可以设置变量如下

　　strPredictVer <- format(Sys.Date(),"%Y-%m-%d")

　　这个格式可以存入日期字段，方便和期间序数进行DateAdd（）函数的运算

4. 创建dfResult这样一个data frame

　　dfResult<- data.frame(s=1:90,p=pred$pred,d=rep(c(strPredictVer)))

　　这里我们需要注意的是，strPredictVer就是一个字符串，如果是一个field的字段，例如这个还有个预测的种类，是从数据库读取的，那么d这个字段将会被数据库字段名替代，这里可以试一下差别

5. 我们用的是Microsoft SQL Server In database R service需要提前加载library RODBC

　　以下截图的代码就可以简单的将数据存入DB

　　a. table名称Predict

　　b. overwrite =TRUE