目的

分割表を与えて，その分割表が得られる元のデータ（二変数データ）を再現する

使用法

tenkai(f)

引数

f	分割表（行和，列和を含まない）

ソース

インストールは，以下の 1 行をコピーし，R コンソールにペーストする
source("http://aoki2.si.gunma-u.ac.jp/R/src/tenkai.R", encoding="euc-jp")

# 分割表を与えて，その分割表が得られる元のデータ（二変数データ）を再現する
tenkai <- function(f)
{
        list(x=rep(row(f), f), y=rep(col(f), f))
}


使用例

f <- matrix(c(2,3,1,4,3,5,4,3,2,1,2,4), nrow=3, byrow=TRUE)
f
result <- tenkai(f)
x <- result$x
y <- result$y
x
y
table(x, y)

出力例

> f <- matrix(c(2,3,1,4,3,5,4,3,2,1,2,4), nrow=3, byrow=TRUE)
> f
     [,1] [,2] [,3] [,4]
[1,]    2    3    1    4
[2,]    3    5    4    3
[3,]    2    1    2    4
> result <- tenkai(f) # 結果はリストで返される
> x <- result$x
> y <- result$y
> x
 [1] 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3
> y
 [1] 1 1 2 2 2 3 4 4 4 4 1 1 1 2 2 2 2 2 3 3 3 3 4 4 4 1 1 2 3 3 4 4 4 4
> table(x, y) # ちゃんとデータが再現されたか集計してみる
   y
x   1 2 3 4
  1 2 3 1 4
  2 3 5 4 3
  3 2 1 2 4