例題：

　「二人の評定者が判定した結果が表 1 のようにまとめられた。評定が同じかどうか検定しなさい。ただし，評定の違いに対して，表 5 のような重みをつけなさい。」

表 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

表 5．二人の評定者の違いに対する重み

		評定者B
		B1	B2	B3
評定者A	A1	--	1	3
	A2	1	--	1
	A3	3	1	--

R による解析：

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

> w <- matrix(c(
+ 	0, 1, 3,
+ 	1, 0, 1,
+ 	3, 1, 0
+ ), byrow=TRUE, ncol=3)

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

	κ統計量（重み付け）

data:  x
Z = 6.1563, p-value = 7.447e-10
95 percent confidence interval:
 0.5586969 0.8278289
sample estimates:
    kappa 
0.6932629