例題：

　「二人の評定者が判定した結果が表 1 のようにまとめられた。評定が同じかどうか検定しなさい。」

表 1．二人の評定者の評定結果

		評定者B
		B1	B2	B3	合計
評定者A	A1	12	6	1	19
	A2	3	19	4	26
	A3	2	5	34	41
	合計	17	30	39	86

R による解析：

> x <- matrix(c(
+ 	12,  6,  1,
+ 	 3, 19,  4,
+ 	 2,  5, 34
+ ), byrow=TRUE, ncol=3)

> kappa.stat(x)	# この関数の定義を見る

	κ統計量

data:  x
Z = 7.5202, p-value = 5.467e-14
95 percent confidence interval:
 0.4721927 0.7583143
sample estimates:
    kappa 
0.6152535