#通过简单移动平均进行平滑处理 #简单移动平移 将数据用这一点前后各p个数的均值来表示 这就是居中移动平移 #可以进行简单移动平移的函数有TTR::SMA() zoo::rollmean() forecast::ma() #以Nile数据集为例,对其进行平滑(k=3 7 15的结果) library(forecast) opar <- par(no.readonly = TRUE) par(mfrow=...