tests/testthat/test-calc_mode.R

test_that("Expect equal", {

  expect_equal(
    object = calc_mode(x = c("a","a","a","b")),
    expected = "a"
  )

})

test_that("Ties", {

  expect_warning(object = calc_mode(c("a","a","b","b")))

})
vbfelix/relper documentation built on May 10, 2024, 10:50 p.m.