0

日付を取得し、日中の時系列を含む動物園オブジェクトを返す関数があります。ここにモックアップがあります：

    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)

私が見つけた唯一の解決策は、空の動物園オブジェクトから始めて、for ループ内で動物園オブジェクトを連結することです。しかし、それはかなり醜いです。もっと良い方法があるはずです。これをどのように行いますか？

4

1 に答える 1

1

やりたいことは、-whatever- のリストを作成することです。その後、rbind、cbind、c、独自の関数を使用して、何でも接着できます...名前を付けます。あなたの場合、それは

z <- sapply(valuationDates, getData, simplify = FALSE)
do.call("rbind", z)
于 2011-12-12T19:28:08.570 に答える