Cohen (1968) weighted kappa
Examples
V <- c(1, 2, 3, 4, 5, 6, 7, 8)
KappaWt(V, V)
#> $kappa
#> [1] 1
#>
#> $observed_disagreement
#> [1] 0
#>
#> $expected_disagreement
#> [1] 2.625
#>
#> $n
#> [1] 8
#>
#> $n_categories
#> [1] 8
#>
#> $method
#> [1] "Cohen (1968) weighted kappa, 1 - sum(W O)/sum(W E)"
#>
