# Aufgabe 24 
library(vcd)

agreementMat <- matrix(c(15,8,8,5,1,1,3,11,4),
                       byrow=TRUE,ncol=3)
Kappa(agreementMat) # Gewichtung mit 2. Variante