Подтвердить что ты не робот

Объект Interpolate zoo с отсутствующими Датами

У меня есть климатический временной ряд с отсутствующими датами (без пропущенных значений). Например:

n = 15
full.dates = seq(Sys.Date(), by = 'day', length = n)
serie.dates = full.dates[c(1:10, 12, 15)] # missing 11, 13, 14
y = rnorm(n)

require(zoo)    
serie = zoo(y, serie.dates)

Как я могу "заполнить" (используя интерполяцию) эти недостающие точки, учитывая вектор "full.dates"? Спасибо!

4b9b3361

Ответ 1

Объедините с "пустым" объектом, который имеет все нужные даты, затем используйте na.approx (или na.spline и т.д.), чтобы заполнить отсутствующие значения.

x <- merge(serie, zoo(,seq(start(serie),end(serie),by="day")), all=TRUE)
x <- na.approx(x)