2011-05-07から1日間の記事一覧

アレイの1軸だけ取り外す

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

アレイを使ってn進法

# 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…