Как получить эти результаты скользящего среднего - PullRequest
0 голосов
/ 11 июня 2019

Я пытаюсь получить скользящее среднее в этом формате

Если 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))
...