airts <- ts(ss,frequency = 12)# 给定frequency周期为12,不然下一行stl函数显示序列没周期
ss2 <- stl(airts,s.window = "per") #s.window = "per"控制季节变化的速度
上面程序报错,百度搜问题,看帮助文档
fit4 <- ets(airts) #使用ets方法拟合
fore4 <- forecast(airts,model=fit4,h=5)$mean #预测5期值,为什么用$号,对变量用str(x)查看其内部结构
error4 <- (fore4-test)/test #看相对误差
下一步待解决问题:
1.分解序列后,怎么平滑扰动项效果好
2.数据整合merge,rbind,apply等等学习熟练
3.3天内破解tableau