tests/testthat/test-statistical_mode-examples.R

test_that("`statistical_mode()` works", {
  out <- statistical_mode(c(rep(10, 10), rep(9, 9)))
  expect_equal(out, 10)
})
BlasBenito/spatialRF documentation built on Sept. 1, 2022, 1:42 p.m.