У меня есть почасовые xts данные, и я хочу преобразовать их в дневные и месячные данные;но у моих данных есть NA, и я хочу, чтобы критерий 25 процентов действовал. (Если процент NA в ряду превышает 25%, этот ряд предполагал NA.)
Для этого я попытался использовать «процентные критерии»,команды "endpoints" и "period.apply";но они всегда давали ошибку.Как я могу решить эту проблему?
getMeanBy <- function(ts, on, percentCriteria=TRUE)
ep <- endpoints(ts, on = "days")
per <- Mode(ep[2:length(ep)] - ep[1:(length(ep)-1)])
x <- if(percentCriteria)
period.apply(ts, INDEX=ep, FUN=mymean, per) else # with 25% criteria
period.apply(ts, INDEX=ep, FUN=mean, na.rm=T) # with na.rm=T criteria