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