転置する アレイの各軸の要素数を使った「任意digit進法」みたいなもの # Aはアレイ # vは、アレイの軸の順番の変更を指示する順列ベクトル my.t.array <- function(A,v){ # アレイをベクトル化する A.v <- c(A) # アレイの各要素の「番地」を作る p <- list…