Скопируйте последнее значение за день
У меня есть многодневный объект XTS, и я пытаюсь создать индикатор, который когда-то будет истинным и останется истинным до конца дня. Подход, который я пробую (но он не работает), объединяет функцию na.locf с ежедневным применением:
output <- apply.daily(x, na.locf)
Воспроизводимый код:
y <- as.xts(c(NA,NA,1,NA,NA,NA,NA,NA,NA),as.POSIXct(c(
"2010-01-05 00:00:00", "2010-01-05 00:04:00", "2010-01-05 00:08:00",
"2010-01-05 00:12:00", "2010-01-05 00:16:00", "2010-01-05 00:20:00",
"2010-01-06 00:00:00", "2010-01-06 00:04:00", "2010-01-06 00:08:00")))
Желаемый вывод - скопировать «1» до конца этого дня. так:
y <- as.xts(c(NA,NA,1,1,1,1,NA,NA,NA),as.POSIXct(c(
"2010-01-05 00:00:00", "2010-01-05 00:04:00", "2010-01-05 00:08:00",
"2010-01-05 00:12:00", "2010-01-05 00:16:00", "2010-01-05 00:20:00",
"2010-01-06 00:00:00", "2010-01-06 00:04:00", "2010-01-06 00:08:00")))