Skip to contents

make population data

makePop.Rd

母集団データを作成する。

Usage

makePop(mbCAT, lSLOT, sVERBOSE = c("simple", "none", "detail"))

Arguments

mbCAT

an integer matrix. 母集団メンバーのカテゴリ割付可能性を表す。

mbCAT[i,j]は以下を表す。欠損不可。

  • 1: 母集団メンバーiはカテゴリjについて割付可能。

  • 0: 母集団メンバーiはカテゴリjについて割付不能。

列に名前を付けるとカテゴリ名とみなされる。 名前を付けるならばすべての列に重複なく名前をつけること。

lSLOT

a list of integer matrices. 母集団メンバーのスロット割付可能性を表す。

lSLOT[[j]][i,k]は以下を表す。

  • 1: 母集団メンバーiはカテゴリjのスロットkについて割付可能。

  • 0: 母集団メンバーiはカテゴリjのスロットkについて割付不能。

mbCAT[i,j] == 0のとき、 lSLOT[[j]][i, ]はすべて欠損として扱われる (すなわち、割付不能カテゴリに属するスロットへの割付可能性は 無視される)。

mbCAT[i,j] == 1のとき、 lSLOT[[j]][i, ]は欠損不可 (すなわち、割付不能カテゴリに属するスロットへの割付可能性は すべて記述する必要がある)。

列に名前を付けた場合はスロット名とみなされる。 名前を付けるならばすべての列に重複なく名前をつけること。

sVERBOSE

a string. 画面表示レベル。

Value

an object of `popdata` class. その実体は以下の要素を持つリスト。

  • mbCAT 整数行列。 引数mbCATとして与えられた行列。 列名がついていなかった場合は、 列名"Cat_(j)"が付与される。

  • lSLOT 整数行列のリスト。 引数lSLOTとして与えられたリスト。 ただし、割付不能カテゴリに属するスロットへの 割付可能性はすべて欠損に置き換えられている。 引数lSLOTの要素に列名が付いていなかった場合は、 列名"Slot_(j)_(k)"が付与される。

Examples

data(popdata, package = "rSurveyAssign")
mbCat <- as.matrix(popdata[, paste0("bCat_", 1:3)])
lSlot <- list(
  as.matrix(popdata[, paste0("bSlot_1_", 1:10)]),
  as.matrix(popdata[, paste0("bSlot_2_", 1:10)]),
  as.matrix(popdata[, paste0("bSlot_3_", 1:10)])
)
lPop <- makePop(mbCAT = mbCat, lSLOT = lSlot)
#> [makePop] assign colnames to lSLOT ...
#> [makePop] # of categories: 3 
#> [makePop] # of slots: 10,10,10 
#> [makePop] # of members: 10000 
#> [makePop] # of member-category pairs which are assignable: 26488 (8829.3/category) 
#> [makePop] # of member-slot pairs which are assignable: 58836 (1961.2/slot)