如何获得这些移动平均值结果

时间:2019-06-10 23:50:57

标签: r datatables rolling-average

我正在尝试以这种格式获得移动平均线

NA停留在哪里NA否则显示三个周期的平均值,但是对于第一和第二个周期,假定缺失值是现有值的扩展。

我正在尝试使用变化的输入而不是想要的结果的rollmean和rollapply函数。

tempo[,toto:= rollmean(original,3,align="left", fill="extend")]
tempo[,toto1:= rollapply(original,3,mean,align="left", na.pad=FALSE)]


tempo<-data.table(original = c(NA,NA,NA,10,0,0,0,10,10,10,0,NA,NA),
                  desired = c(NA,NA,NA,10,5,3.3,0,3.3,6.6,10,6.6,NA,NA))

0 个答案:

没有答案