data("SexualFun")
## Kappa statistics
Kappa(SexualFun)
## Agreement Chart
agreementplot(t(SexualFun), weights = 1)
## Partial Agreement Chart and B-Statistics
agreementplot(t(SexualFun),
xlab = "Husband's Rating",
ylab = "Wife's Rating",
main = "Husband's and Wife's Sexual Fun")
Run the code above in your browser using DataLab