2017-01-12 101 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]) 
    } 
}