2017-01-12 100 views
0

我有一個大R:一個循環

GbyEbyA<-array(NA,c(50,1,10,900)) 
數據的

和我想軟碼本,使得如果我改變陣列的第三維的循環將調整內軟碼rbind(例如,如果我從10個環境改爲5個)。

comb<-list() 
for(i in 1:length(acc)){ 
comb[[i]]<-rbind(GbyEbyA[,,1,i],GbyEbyA[,,2,i],GbyEbyA[,,3,i],GbyEbyA[,,4,i],GbyEbyA[,,5,i], 
       GbyEbyA[,,6,i],GbyEbyA[,,7,i],GbyEbyA[,,8,i],GbyEbyA[,,9,i],GbyEbyA[,,10,i]) 
} 

有沒有辦法軟碼這是這樣的例子(這顯然不工作):

comb<-list() 
for(i in 1:length(acc)){ 
comb[[i]]<-rbind(get(paste("GbyEbyA[,,",1:10,",",i,"]",sep=""))) 
} 

謝謝!

回答

0

這是非常R,但你可以嵌套另一個循環?像這樣?

for(i in 1:length(acc){ 
    for(j in 1:10){ 
     comb[[i]]<-rbind(GbyEbyA[,,j,i]) 
    } 
}