R : 단일 블록에 여러 파일에서로드 XTS 시리즈

Question

나는 여러 파일에서 XTS의 시계열을로드하고 하나의 XTS 매트릭스에 병합하려면 다음 R 코드를 가지고있는 방법

에 있습니까

load.files = function(dates, filenames) { 
    for(i in 1:length(dates)) { 
    # load and merge each xts block 
    ts.set = load.single.file(dates[i], filenames[i]) 
    if(i == 1) 
    ts.all = ts.set 
    else 
    ts.all = rbind(ts.all, ts.set) 
} 

return(ts.all) 

을

1. 첫 번째 ts.set을 초기화하는 데 필요한 if/else 문을 사용하지 마십시오.
2. for 루프를 피하십시오?

Answer 1

저는 종종 이와 같은 구조를 사용하여 명시적인 루프 생성을 피합니다.

전략은 먼저 파일을 data.frames 목록으로 읽은 다음 rbind과 함께 그 목록의 요소를 단일 data.frame으로 읽는 것입니다. 아마도 당신의 상황에 똑같은 논리를 적용 할 수 있습니다.

filenames <- c("a.csv", "b.csv", "c.csv") 
l <- lapply(filenames, read.csv) 
do.call("rbind", l)