tests/testthat/test-cv.kappa.R

In micss: Modified Iterative Cumulative Sum of Squares Algorithm

test_that(
  "Critical values. Expected = 1.444563 ",
  {
    expected <- 1.421182
    actual <- cv.kappa(100,3.5,0.05)
    expect_equal(round(actual,5), round(expected,5))
  }
)