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 Feb. 12, 2023, 8:26 a.m.