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

Question

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

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))