Я пытался создать новый столбец со средним значением для каждого из моих фреймов данных.
Я пытаюсь использовать lapply с rollmean / rollaply из пакета ZOO. Естественно, что после подсчета Rollmean некоторые наблюдения хвоста и головы будут пусты.
library(zoo)
df.list <- list(alpha, beta, gamma)
lapply(df.list, function(w) { w$rolling <- rollapply(w$tmean, width = 3, FUN = mean, fill=NA); w})
Когда я звоню lapply с rollapply, вложенным индивидуально с помощью fill=NA, все работает нормально. Когда я помещаю это в цикл / lapply с несколькими DF, я получаю
"Error in attr(x, "class") <- attr(x, "oclass") :
adding class "factor" to an invalid object ".
Если я опускаю fill=NA вариант, я получаю
"replacement has 6208 rows, data has 6210".
Есть какие-нибудь подсказки, как это преодолеть?