多次元表を作る

• 表の次元をとする
• 第i(i=1,2,...,k)尺度のカテゴリ数をとし、とする
• は表のセル数である
• 適当にk次元の表Aを作ってみよう

k<-3
r<-sample(2:4,k,replace=TRUE)
print(r)
R<-prod(r)
print(R)
A<-array(1:R,r)
print(A)

> k<-3
> r<-sample(2:4,k,replace=TRUE)
> print(r)
[1] 4 2 4
> R<-prod(r)
> print(R)
[1] 32
> A<-array(1:R,r)
> print(A)
, , 1

     [,1] [,2]
[1,]    1    5
[2,]    2    6
[3,]    3    7
[4,]    4    8

, , 2

     [,1] [,2]
[1,]    9   13
[2,]   10   14
[3,]   11   15
[4,]   12   16

, , 3

     [,1] [,2]
[1,]   17   21
[2,]   18   22
[3,]   19   23
[4,]   20   24

, , 4

     [,1] [,2]
[1,]   25   29
[2,]   26   30
[3,]   27   31
[4,]   28   32