exametrika 日本語ガイド
In exametrika: Test Data Engineering

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7,
  fig.height = 5,
  out.width = "100%"
)

日本語チュートリアルはこちらもご参照ください。

注意: CRANビルド時間短縮のため、計算負荷の高いコード例は eval=FALSE としています。完全な実行結果は pkgdownサイトをご覧ください。

概要

exametrikaパッケージは、教育テストデータを分析するための包括的なテストデータエンジニアリングツールを提供します。荘島（2022）で説明されている方法に基づき、このパッケージは研究者と実務家に以下の機能を提供します：

テスト応答パターンと項目特性の分析
様々な心理測定モデルを用いた受験者の分類
テストデータにおける潜在構造の調査
項目間の局所依存性の検討
項目関係のネットワーク分析

機能

本パッケージは以下の心理測定モデルと技法を実装しています：

古典的手法

古典的テスト理論（CTT）
項目の難易度と識別力
テストの信頼性と妥当性
項目反応理論（IRT）
2PL、3PL、4PLモデル
項目特性曲線
テスト情報関数

潜在構造分析

潜在クラス分析（LCA）
クラスメンバーシップの推定
項目応答プロファイル
潜在ランク分析（LRA）
順序付き潜在クラス
ランク遷移確率
バイクラスタリングとランククラスタリング
項目と受験者の同時クラスタリング
フィールド固有の応答パターン
無限関係モデル（IRM）
最適なクラス/フィールド数の決定
ノンパラメトリッククラスタリング

モデルの概要

局所依存モデル

本パッケージは、テストデータにおける局所依存性をモデル化する3つの相補的なアプローチを実装しています：

局所依存潜在ランク分析（LDLRA）
項目間の依存関係が異なる習熟度ランクでどのように変化するかを分析
項目間の関係が学習者の能力レベルによって変化すると予想される場合に適している
LRAとベイジアンネットワークの長所を組み合わせたモデル
局所依存バイクラスタリング（LDB）
各ランク内における項目フィールド間の関係に焦点
項目が自然なグループ（フィールド）を形成し、階層的な関係を持つ場合に最適
バイクラスタリングとフィールドレベルの依存構造を統合
バイクラスターネットワークモデル（BINET）
各フィールド内でのクラス遷移を検討
複雑なクラス進行パターンの理解に最適
バイクラスタリングとクラスレベルのネットワーク分析を組み合わせたモデル

モデル選択ガイド

| モデル | 主な焦点 | 適用場面 | |--------|----------|----------| | LDLRA | 項目レベルの依存関係 | 項目関係が習熟度によって変化する場合 | | LDB | フィールドレベルの構造 | 項目が自然なグループを形成し依存関係を持つ場合 | | BINET | クラス進行 | フィールド内に複雑な学習パターンが存在する場合 |

インストール

# CRANからインストール
install.packages("exametrika")

# または開発版をGitHubからインストール
if (!require("devtools")) install.packages("devtools")
devtools::install_github("kosugitti/exametrika")

依存パッケージ

本パッケージには以下が必要です：

R (>= 4.1.0)
igraph (ネットワーク分析用)
その他の依存パッケージは自動的にインストールされます

データ形式と使用方法

基本的な使用方法

library(exametrika)

データ要件

Exametrikaは2値データと多値データの両方に対応しています：

2値データ（0/1）
0：誤答
1：正答
多値データ
順序のある反応カテゴリ
複数の得点レベル
欠測値
NA値がサポートされています
カスタムの欠測値コードを指定可能

データフォーマット

dataFormat関数は分析用の入力データを前処理します：

data <- dataFormat(J15S500)
str(data)

サンプルデータセット

本パッケージには、荘島（2022）からの様々なサンプルデータセットが学習用に含まれています：

命名規則：JxxSxxx形式（J：項目数、S：サンプルサイズ）

| データセット | 項目数 | 受験者数 | 種別 | 用途 | |-------------|-------:|---------:|------|------| | J5S10 | 5 | 10 | 2値 | クイックテスト | | J5S1000 | 5 | 1,000 | 順序 | GRM | | J12S5000 | 12 | 5,000 | 2値 | LDLRA | | J15S500 | 15 | 500 | 2値 | IRT, LCA | | J15S3810 | 15 | 3,810 | 順序(4件法) | 順序LRA | | J20S400 | 20 | 400 | 2値 | BNM | | J20S600 | 20 | 600 | 名義(4cat) | 名義Biclustering | | J35S500 | 35 | 500 | 順序(5件法) | 順序Biclustering | | J35S515 | 35 | 515 | 2値 | Biclustering, Network | | J35S5000 | 35 | 5,000 | 多肢選択 | 評定LRA |

使用例

テスト統計量

TestStatistics(J15S500)

項目統計量

ItemStatistics(J15S500)

CTT

CTT(J15S500)

IRT

IRT関数は、ロジスティックモデルを用いてパラメータを推定します。modelオプションで指定でき、2PL、3PL、4PLモデルに対応しています。

result.IRT <- IRT(J15S500, model = 3)
result.IRT

head(result.IRT$ability)

plot(result.IRT, type = "IRF", items = 1:6, nc = 2, nr = 3)
plot(result.IRT, type = "IRF", overlay = TRUE)
plot(result.IRT, type = "IIC", items = 1:6, nc = 2, nr = 3)
plot(result.IRT, type = "TRF")
plot(result.IRT, type = "TIC")

GRM

Graded Response Model（Samejima,1969）はIRTを多値反応モデルに展開したものです。

result.GRM <- GRM(J5S1000)
result.GRM

plot(result.GRM, type = "IRF", nc = 2)
plot(result.GRM, type = "IIF", nc = 2)
plot(result.GRM, type = "TIF")

LCA

潜在クラス分析では、データセットとクラス数の指定が必要です。

result.LCA <- LCA(J15S500, ncls = 5)
head(result.LCA$Students)

plot(result.LCA, type = "IRP", items = 1:6, nc = 2, nr = 3)
plot(result.LCA, type = "CMP", students = 1:9, nc = 3, nr = 3)
plot(result.LCA, type = "TRP")
plot(result.LCA, type = "LCD")

LRA

潜在ランク分析では、データセットとランク数の指定が必要です。

result.LRA <- LRA(J15S500, nrank = 6)
head(result.LRA$Students)

plot(result.LRA, type = "IRP", items = 1:6, nc = 2, nr = 3)
plot(result.LRA, type = "RMP", students = 1:9, nc = 3, nr = 3)
plot(result.LRA, type = "TRP")
plot(result.LRA, type = "LRD")

LRA 順序尺度データへの適用

result.LRAord <- LRA(J15S3810, nrank = 3, mic = TRUE)

plot(result.LRAord, type = "ScoreFreq")
plot(result.LRAord, type = "ScoreRank")

plot(result.LRAord, type = "ICBR", items = 1:4, nc = 2, nr = 2)
plot(result.LRAord, type = "ICRP", items = 1:4, nc = 2, nr = 2)

plot(result.LRAord, type = "RMP", students = 1:9, nc = 3, nr = 3)

LRA 名義尺度データへの適用

result.LRArated <- LRA(J35S5000, nrank = 10, mic = TRUE)

plot(result.LRArated, type = "ScoreFreq")
plot(result.LRArated, type = "ScoreRank")
plot(result.LRArated, type = "ICRP", items = 1:4, nc = 2, nr = 2)

バイクラスタリング

Biclustering(J35S515, nfld = 5, ncls = 6, method = "B")

result.Ranklustering <- Biclustering(J35S515, nfld = 5, ncls = 6, method = "R")
plot(result.Ranklustering, type = "Array")
plot(result.Ranklustering, type = "FRP", nc = 2, nr = 3)
plot(result.Ranklustering, type = "RRV")
plot(result.Ranklustering, type = "RMP", students = 1:9, nc = 3, nr = 3)
plot(result.Ranklustering, type = "LRD")

グリッドサーチ

result <- GridSearch(J35S515, method = "R", max_ncls = 10, max_nfld = 10, index = "BIC")
result$optimal_ncls
result$optimal_nfld
plot(result$optimal_result, type = "Array")

無限関係モデル

result.IRM <- Biclustering_IRM(J35S515, gamma_c = 1, gamma_f = 1, verbose = TRUE)
plot(result.IRM, type = "Array")
plot(result.IRM, type = "FRP", nc = 3)
plot(result.IRM, type = "TRP")

多段階反応データ用のバイクラスタリング

順序尺度データ

result.B.ord <- Biclustering(J35S500, ncls = 5, nfld = 5, method = "R")
result.B.ord
plot(result.B.ord, type = "Array")
plot(result.B.ord, type = "FRP", nc = 3, nr = 2)
plot(result.B.ord, type = "FCRP", nc = 3, nr = 2)
plot(result.B.ord, type = "FCRP", style = "bar", nc = 3, nr = 2)
plot(result.B.ord, type = "FCBR", nc = 3, nr = 2)
plot(result.B.ord, type = "ScoreField")
plot(result.B.ord, type = "RRV")

名義尺度データ

result.B.nom <- Biclustering(J20S600, ncls = 5, nfld = 4)
result.B.nom
plot(result.B.nom, type = "Array")
plot(result.B.nom, type = "FRP", nc = 2, nr = 2)
plot(result.B.nom, type = "FCRP", nc = 2, nr = 2)
plot(result.B.nom, type = "FCRP", style = "bar", nc = 2, nr = 2)
plot(result.B.nom, type = "ScoreField")
plot(result.B.nom, type = "RRV")

ベイジアンネットワークモデル

library(igraph)
DAG <- matrix(
  c(
    "Item01", "Item02", "Item02", "Item03", "Item02", "Item04",
    "Item03", "Item05", "Item04", "Item05"
  ),
  ncol = 2, byrow = TRUE
)
g <- igraph::graph_from_data_frame(DAG)
adj_mat <- as.matrix(igraph::get.adjacency(g))

result.BNM <- BNM(J5S10, adj_matrix = adj_mat)
result.BNM

遺伝的アルゴリズムによる構造学習

BNM_GA(J5S10,
  population = 20, Rs = 0.5, Rm = 0.002, maxParents = 2,
  maxGeneration = 100, crossover = 2, elitism = 2
)

PBILによる構造学習

BNM_PBIL(J5S10,
  population = 20, Rs = 0.5, Rm = 0.005, maxParents = 2,
  alpha = 0.05, estimate = 4
)

局所依存潜在ランク分析

DAG_dat <- matrix(c(
  "From", "To", "Rank",
  "Item01", "Item02", 1, "Item04", "Item05", 1,
  "Item01", "Item02", 2, "Item02", "Item03", 2,
  "Item04", "Item05", 2, "Item08", "Item09", 2,
  "Item08", "Item10", 2, "Item09", "Item10", 2, "Item08", "Item11", 2,
  "Item01", "Item02", 3, "Item02", "Item03", 3,
  "Item04", "Item05", 3, "Item08", "Item09", 3,
  "Item08", "Item10", 3, "Item09", "Item10", 3, "Item08", "Item11", 3,
  "Item02", "Item03", 4, "Item04", "Item06", 4,
  "Item04", "Item07", 4, "Item05", "Item06", 4,
  "Item05", "Item07", 4, "Item08", "Item10", 4,
  "Item08", "Item11", 4, "Item09", "Item11", 4,
  "Item02", "Item03", 5, "Item04", "Item06", 5,
  "Item04", "Item07", 5, "Item05", "Item06", 5,
  "Item05", "Item07", 5, "Item09", "Item11", 5,
  "Item10", "Item11", 5, "Item10", "Item12", 5
), ncol = 3, byrow = TRUE)

edgeFile <- tempfile(fileext = ".csv")
write.csv(DAG_dat, edgeFile, row.names = FALSE, quote = TRUE)

result.LDLRA <- LDLRA(J12S5000, ncls = 5, adj_file = edgeFile)
result.LDLRA

plot(result.LDLRA, type = "IRP", nc = 4, nr = 3)
plot(result.LDLRA, type = "TRP")
plot(result.LDLRA, type = "LRD")

if (exists("edgeFile")) unlink(edgeFile)

局所依存バイクラスタリング

conf <- c(
  1, 6, 6, 8, 9, 9, 4, 7, 7, 7, 5, 8, 9, 10, 10,
  9, 9, 10, 10, 10, 2, 2, 3, 3, 5, 5, 6, 9, 9, 10,
  1, 1, 7, 9, 10
)

edges_data <- data.frame(
  "From Field (Parent) >>>" = c(6, 4, 5, 1, 1, 4, 3, 4, 6, 2, 4, 4, 3, 6, 4, 1, 7, 9, 6, 7),
  ">>> To Field (Child)" = c(8, 7, 8, 7, 2, 5, 5, 8, 8, 4, 6, 7, 5, 8, 5, 8, 10, 10, 8, 9),
  "At Class/Rank (Locus)" = c(2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5)
)

edgeFile <- tempfile(fileext = ".csv")
write.csv(edges_data, file = edgeFile, row.names = FALSE)

result.LDB <- LDB(U = J35S515, ncls = 5, conf = conf, adj_file = edgeFile)
result.LDB

plot(result.LDB, type = "Array")
plot(result.LDB, type = "TRP")
plot(result.LDB, type = "LRD")
plot(result.LDB, type = "RMP", students = 1:9, nc = 3, nr = 3)
plot(result.LDB, type = "FRP", nc = 3, nr = 2)
plot(result.LDB, type = "FieldPIRP")

if (exists("edgeFile")) unlink(edgeFile)

バイクラスターネットワークモデル

conf <- c(
  1, 5, 5, 5, 9, 9, 6, 6, 6, 6, 2, 7, 7, 11, 11,
  7, 7, 12, 12, 12, 2, 2, 3, 3, 4, 4, 4, 8, 8, 12,
  1, 1, 6, 10, 10
)

edges_data <- data.frame(
  "From Class (Parent) >>>" = c(1, 2, 3, 4, 5, 7, 2, 4, 6, 8, 10, 6, 6, 11, 8, 9, 12),
  ">>> To Class (Child)" = c(2, 4, 5, 5, 6, 11, 3, 7, 9, 12, 12, 10, 8, 12, 12, 11, 13),
  "At Field (Locus)" = c(1, 2, 2, 3, 4, 4, 5, 5, 5, 5, 5, 7, 8, 8, 9, 9, 12)
)

edgeFile <- tempfile(fileext = ".csv")
write.csv(edges_data, file = edgeFile, row.names = FALSE)

result.BINET <- BINET(
  U = J35S515, ncls = 13, nfld = 12,
  conf = conf, adj_file = edgeFile
)
print(result.BINET)

plot(result.BINET, type = "Array")
plot(result.BINET, type = "TRP")
plot(result.BINET, type = "LRD")
plot(result.BINET, type = "RMP", students = 1:9, nc = 3, nr = 3)
plot(result.BINET, type = "FRP", nc = 3, nr = 2)
plot(result.BINET, type = "LDPSR", nc = 3, nr = 2)

if (exists("edgeFile")) unlink(edgeFile)

参考文献

Shojima, K. (2022) Test Data Engineering: Latent Rank Analysis, Biclustering, and Bayesian Network (Behaviormetrics: Quantitative Approaches to Human Behavior, 13), Springer.

Any scripts or data that you put into this service are public.

exametrika documentation built on Aug. 20, 2026, 5:08 p.m.

rdrr.io home R language documentation Run R code online

CRAN packages Bioconductor packages R-Forge packages GitHub packages

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

exametrika Test Data Engineering

exametrika 日本語ガイド In exametrika: Test Data Engineering

概要

機能