时序平滑化处理

  • 通过简单移动平均进行平滑处理

时序数据中通常有很明显的随机或误差成分,为了辨明数据中的规律,画出一条平滑曲线,该曲线消除或者减弱时序中不规则和其他变动,呈现现象的 长期趋势,最简单的方法就是 简单移动平均

07085751_Z6Hi.png

其中 St 是时间点t的平滑值, k =2q +1 是每次用来平均观测值的个数,一般我们会将其设为一个奇数,居中移动平均法的代价是,每个时序集中我们会损失最后的 (k-1)/2个观测值

  R中有几个函数都可以做简单的移动平均,包括 TTR包 中的 SMA()函数,zoo包中的 rollmean()函数,forecast() 包中的 ma() 函数

#如下图1
> library(forecast)
> opar <- par(no.readonly=TRUE)
> par(mfrow=c(2,2))
> ylim <- c(min(Nile), max(Nile))
> plot(Nile, main="Raw time series")
> plot(ma(Nile, 3), main="Simple Moving Averages (k=3)", ylim=ylim)
> plot(ma(Nile, 7), main="Simple Moving Averages (k=7)", ylim=ylim)
> plot(ma(Nile, 15), main="Simple Moving Averages (k=15)", ylim=ylim)
> par(opar)

07085751_NixA.png

                      图1

 

转载于:https://my.oschina.net/u/1785519/blog/1563580

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值