分割表から元データを再現     Last modified: Dec 13, 2004

目的

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

使用法

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


・ 直前のページへ戻る  ・ E-mail to Shigenobu AOKI

Made with Macintosh