Saya memiliki objek XTS multi-hari, dan saya mencoba membuat indikator yang jika benar, akan tetap benar sepanjang hari. Pendekatan yang saya coba (tetapi tidak berhasil) adalah menggabungkan fungsi na.locf dengan apply daily:
output <- apply.daily(x, na.locf)
Kode yang dapat direproduksi:
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")))
Output yang diinginkan adalah menyalin '1' untuk sisa hari itu. Jadi:
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")))