# 2 raters have assessed 4 subjects into categories "A", "B" or "C"
# organize ratings as two column matrix, one row per subject rated
m <- rbind(sj1 = c("A", "A"),
sj2 = c("C", "B"),
sj3 = c("B", "C"),
sj4 = c("C", "C"))
# Cohen's kappa -----
kappa2(ratings = m)
# robust variant ---------
kappa2(ratings = m, robust = TRUE)
Run the code above in your browser using DataLab