inst/rkward/tests/rk.CohenKappa/RKTest.example1.rkcommands.R

local({
## Vorbereiten
require(psych)
## Berechne
	kappa.result <- cohen.kappa(
		x=rater.data
	)

## Drucke Ergebnisse
rk.header("Cohen's Kappa and weighted Kappa")
	rk.header("Correlation coefficients and confidence boundaries", level=3)
	rk.print(kappa.result[["confid"]])
	rk.print(paste("<b>Alpha level:</b>", kappa.result[["plevel"]]))
	rk.print(paste("<b>Number of subjects:</b>", kappa.result[["n.obs"]]))

})
rkward-community/rk.CohenKappa documentation built on May 9, 2022, 3:01 p.m.