Объединение объектов зоопарка без цикла for

Question

У меня есть функция, принимающая дату и возвращающая объект зоопарка, содержащий внутридневные временные ряды.Вот макет:

    getData<-function(valuationDate) 
        zoo(
            rnorm(10), 
            seq(as.POSIXlt(paste(valuationDate,"09:00")),length.out=10,by="hour")
        )

Я хотел бы применить эту функцию к списку дат

    valuationDates<-seq(Sys.Date(),Sys.Date()+10,by="day")

и объединить получившийся объект зоопарка.Если бы существовал lzply, он выглядел бы так:

    z <- lzply(valuationDates,getData)

Единственное решение, которое я нашел, - это начать с пустого объекта zoo и объединить объекты zoo внутри цикла for.Но это довольно некрасиво.Должен быть лучший способ.Как бы вы это сделали?

Answer 1

То, что вы хотите сделать, - это создать список -wh--После этого вы можете склеить что угодно вместе, используя rbind, cbind, c, свою собственную функцию ... вы называете это.В вашем случае это будет

z <- sapply(valuationDates, getData, simplify = FALSE)
do.call("rbind", z)