R语言-时间序列-销量预测

数据源：
day	sales
2015/1/1	119613
2015/2/1	58481
2015/3/1	90350
2015/4/1	151975
2015/5/1	201464
2015/6/1	218075
2015/7/1	297448
2015/8/1	333036
2015/9/1	524185
2015/10/1	674426
2015/11/1	652650
2015/12/1	1339579
2016/1/1	858271
2016/2/1	322565
2016/3/1	719774
2016/4/1	781450
2016/5/1	1122696
2016/6/1	831057
2016/7/1	1006733
2016/8/1	1033017
2016/9/1	907956
2016/10/1	1097913
2016/11/1	1250100
2016/12/1	1958772

代码部分：
#加载原始数据
src_dat <-read.csv("E:/.../销量.csv",header=T,stringsAsFactors=FALSE)
#转为时间序列，并将其在图上显示出来。
salesTS <-ts(src_dat$sales[1:24],frequency=12,start=c(2015,1,1))  
plot.ts(salesTS,col="red")  

#这是周期性特别明显的数据，所以考虑使用HoltWinters指数平滑方法来做时间序列的分析预测。
s