tests/testthat/test_1-7-0-Mode.R

test_that("Sparse ints", {
  x <- c(-.Machine$integer.max, 0L, 0L, .Machine$integer.max)
  expect_equal(Mode(x), 0L)
  x <- c(-.Machine$integer.max, 0L, 0L, NA, .Machine$integer.max)
  expect_equal(Mode(x), 0L)
})
HughParsonage/hutils documentation built on June 9, 2025, 12:44 a.m.