cohen <- matrix(c(
0.44, 0.05, 0.01,
0.07, 0.20, 0.03,
0.09, 0.05, 0.06),ncol=3)
wkappa(cohen)
fleiss <- matrix(c(
0.53, 0.05, 0.02,
0.11, 0.14, 0.05,
0.01, 0.06, 0.03),ncol=3)
weights <- matrix(c(
1.0000, 0.0000, 0.4444,
0.0000, 1.0000, 0.6666,
0.4444, 0.6666, 1.0000),ncol=3)
wkappa(fleiss,weights)
Run the code above in your browser using DataLab