r - 如何获得这些移动平均线结果

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