用stats::filter 计算滑动平均值lag0*

简化样式filter(目标对象x,系数c(),移动方式sides=)

参数：

1.系数c()，c()里变量数为取值个数，变量值为权重值，例如3个取同样权重rep(1,3)， 3个取不同权重c(0.5,1.0,1.5)；

2.sides=1向前推，sides=2以lag0为中心（取），默认sides=2，例如stats::filter(x,rep(1,3),sides = 2)为加前一个后一个和当前数，当取值个数为偶数时，为当前数+前（取值个数/2-1）个数+后（取值个数/2）个数，

参考：R语言：移动平均计算及绘图_dplyr::filter() masks stats::filter()-CSDN博客

filter(x, filter, method = c("convolution", "recursive"),
       sides = 2, circular = FALSE, init)