r - 在没有 for 循环的情况下连接 zoo 对象

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 对象开始，并在 for 循环中连接 zoo 对象。但它非常丑陋。肯定有更好的办法。你会怎么做？

Answer 1

你想要做的是创建一个-whatever-的列表。之后，您可以使用 rbind、cbind、c 和您自己的函数……随便命名它。在你的情况下，那将是

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