HEAD PREVIOUS

4  Messung der ‹bereinstimmung der Beurteilung

4.1  Cohens Kappa

Daten aus [6,Seite 458]:
> library(vcd)
> daten <- c(53,5,2,11,14,5,1,6,3)
> mdaten <- matrix(daten, nrow=3, byrow=T)
> mdaten
     [,1] [,2] [,3]
[1,]   53    5    2
[2,]   11   14    5
[3,]    1    6    3
> Kappa(mdaten)
               value        ASE       lwr       upr
Unweighted 0.4285714 0.08728716 0.2574917 0.5996511
Weighted   0.4923077 0.10057994 0.2951746 0.6894407
> 

Resultat in [6]: 0,429

4.2  Spearmans Rangkorrelationskoefizient

Beispiel aus [7,Seite 310]:
> a <- c(7,6,3,8,2,10,4,1,5,9)
> b <- c(8,4,5,9,1,7,3,2,6,10)

> cor.test(a,b, method="spearman")

        Spearman's rank correlation rho

data:  a and b 
S = 24, p-value = 0.003077
alternative hypothesis: true rho is not equal to 0 
sample estimates:
      rho 
0.8545455 


HEAD NEXT