# 多次元表の軸別カテゴリ数 r<-c(2,3,4) # 多次元表の次元 k<-length(r) # 多次元表のセル総数 prod.r<-prod(r) prod.r # 多次元表をアレイに A<-array(1:prod.r,r) A # べき集合を使うためにパッケージを入れる install.packages("sets") library(sets) # …