多次元表を作る

  • 表の次元をkとする
  • 第i(i=1,2,...,k)尺度のカテゴリ数をr_iとし、\mathbf{r}=(r_1,r_2,...,r_k)とする
  • R=\prod_{i=1}^k r_iは表のセル数である
  • 適当に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