Cohen / Fleiss kappa via DescTools

Thin extender over DescTools::CohenKappa (when y is supplied) or DescTools::KappaM (when x is a multi-rater matrix / data frame) for inter-rater agreement.

Usage

morie_desc_kappa(x, y = NULL, ...)

Arguments

x

A vector of ratings (paired with y) or a matrix / data frame whose columns are raters.

y

Optional second rater vector when x is a vector.

...

Further arguments forwarded to the upstream function.

Value

A list with $method (qualified upstream name) and $raw (the upstream return object).

Examples

if (requireNamespace("DescTools", quietly = TRUE)) {
  set.seed(1)
  r1 <- sample(1:3, 50, TRUE); r2 <- r1
  r2[1:10] <- sample(1:3, 10, TRUE)
  morie_desc_kappa(table(r1, r2))
}
#> $method
#> [1] "DescTools::KappaM"
#> 
#> $raw
#> [1] 0.03571429
#>