数组行不在R内部循环递增

Question

我已经搜索过，但我似乎无法找到问题或解决症状。我在R中有一个嵌套循环，首先循环遍历数组的行条目，然后循环列条目。 满足条件时 - 该值应写入另一个数组，其位置由行和列循环值指定。

问题是该行似乎没有增加，只有我的第一行回答＆＃34;数组已填充。

代码如下：

nblocks<-nrow(Data_3m)

Data_MnQ50_3m<-array(rep(NA,(nrow(Topvar_3m)*100*4)),c(nrow(Topvar_3m),100,4))

loopcount<-1

for(r in 1:nblocks){

for (sim in 1:100){

    if((Data_3m[r,sim,1]>= Mn3O4_Q50[r])&(loopcount<51)){

        Data_MnQ50_3m[r,loopcount,1]<-Data_3m[r,sim,1]
        Data_MnQ50_3m[r,loopcount,2]<-Data_3m[r,sim,2]
        Data_MnQ50_3m[r,loopcount,3]<-Data_3m[r,sim,3]
        Data_MnQ50_3m[r,loopcount,4]<-Data_3m[r,sim,4]
        loopcount<-loopcount + 1
        }   
    else{}
    }
}