# NOT RUN {
statement <- data.frame(
A=c(2,3,1,3,1,2,1,2,3,3,3,3,3,2,1,3,3,2,2,1,
2,1,3,3,2,2,1,2,1,1,2,3,3,3,3,3,1,2,1,1),
B=c(2,2,2,1,1,2,1,2,3,3,2,3,1,3,1,1,3,2,1,2,
2,1,3,2,2,2,3,2,1,1,2,2,3,3,3,3,2,2,2,3),
C=c(2,2,2,1,1,2,1,2,3,3,2,3,3,3,3,2,2,2,2,3,
2,2,3,3,2,2,3,2,2,2,2,3,3,3,3,3,3,2,2,2),
D=c(2,2,2,1,1,2,1,2,3,3,2,3,3,3,3,3,2,2,2,2,
3,1,3,2,2,2,1,2,2,1,2,3,3,3,3,3,3,2,2,1),
E=c(2,2,2,3,3,2,3,1,3,3,2,3,3,3,3,3,2,2,2,3,
2,3,3,2,2,2,3,2,1,3,2,3,3,1,3,3,3,2,2,1)
)
KappaM(statement)
KappaM(statement, method="Conger") # Exact Kappa
KappaM(statement, conf.level=0.95) # Fleiss' Kappa and confidence intervals
KappaM(statement, method="Light") # Exact Kappa
# }
Run the code above in your browser using DataLab