## Statistik 1 Helmut Küchenhoff 9.12.2015 

library(vcd)
### Beispiel orthopaedie
setwd("c:/D/kappa")
library(foreign)
o1<-read.spss("Kappa1.sav")
summary(o1)
t13<-table(o1$ctg1A1,o1$ctg1A3)
t13
Kappa(t13)
t24<-table(o1$ctg1A2,o1$ctg1A4)
t24
Kappa(t24)
agreementplot(t13)
agreementplot(t24)


data("SexualFun")
SexualFun
mosaic(SexualFun,shade=TRUE)
Kappa(SexualFun)
### Vorsicht: Nicht 
kappa(SexualFun)
## Condition der Matrix 
agreementplot(SexualFun,weights=1)
agreementplot(SexualFun)