tests/testthat/test-nominal.R

In jucor/krippendorff: "Fast Krippendorff Alpha Reliability Measure"

library(data.table)

context("Replicability on nominal data")


test_that("Replicability on partial nominal data.table", {
  results <- replicability(
    coders = copy(mwebreliability5),
    unit_from = "unit",
    measurement_from = "measurement"
  )
  expect_equal(results$alpha,
    0.743,
    tolerance = 1e-3
  )
})


test_that("Replicability on partial nominal tibble", {
  df <- setDF(copy(mwebreliability5))

  results <- replicability(
    coders = df,
    unit_from = "unit",
    measurement_from = "measurement"
  )
  expect_equal(results$alpha,
    0.743,
    tolerance = 1e-3
  )
})