MayerWang for (i in 1:n){for (j in 1:n){for (z in 1:n){ a[j,z,i]<-a[i,j,z]}}} 在200×200×200的array中使用这个循环非常慢,请问在R语言中如何优化?