アレイは多軸データ １つの軸を特別扱いすることにする 特別扱いするには、最終軸にする その上で、その軸以外の軸が作る部分アレイの要素数での繰り上がりで取り出す d<-c(2,3,4) a<-array(1:prod(d),d) a a[,,1] for(n in 1:d[length(d)]){ print("-------…

# n進法 n<-2 d<-rep(n,10) a<-array(1:prod(d),d) a for(i in 1:10){ print(paste("10進法の数:",i-1)) x<-which(a==i,arr.ind=TRUE) print(x[length(x):1]-1) } [1] "10進法の数: 1" [1] 1 1 1 1 1 1 1 1 1 1 [1] "10進法の数: 2" [1] 1 1 1 1 1 1 1 1 1 2…