for 루프없이 동물원 객체 연결하기

Question

나는 날짜를 가져 와서 날 시간 시리즈를 포함하는 동물원 객체를 반환하는 함수를 가지고있다. 내가 날짜

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

그 결과 동물원 개체을 연결 목록에이 기능을 적용 할 것

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

: 여기 모형이다. lzply이 존재한다면, 그것은 것이

z <- lzply(valuationDates,getData) 

나는 빈 동물원 객체에서 시작하여 for 루프 내부에 동물원 객체을 연결되어 발견 유일한 해결책처럼 보인다. 하지만 꽤 추해. 더 좋은 방법이 있어야합니다. 어떻게 할거 니?

Answer 1

원하는 것은 무엇이든 목록을 만드는 것입니다. 그런 다음 rbind, cbind, c, 자신의 함수를 사용하여 무엇이든 붙일 수 있습니다 ... 이름을 지정하십시오. `(Z "를 rbind") do.call; sapply (valuationDates는 GetData의이 = FALSE를 단순화) - 귀하의 경우에는, 그

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