tests/testthat/test-mfv.R

In statip: Statistical Functions for Probability Distributions and Regression

context("Test 'mfv()' function")

test_that("'mfv()' returns the most frequent value(s)", {
  expect_identical(mfv(integer(0)), NaN)
  expect_identical(mfv(c(3, 3, 3, 2, 4)), 3)
  expect_identical(mfv(c(TRUE, FALSE, TRUE)), TRUE)
  expect_identical(mfv(c("a", "a", "b", "a", "d")), "a")
  expect_identical(mfv(c("a", "a", "b", "b", "d")), c("a", "b"))
  expect_identical(mfv1(c("a", "a", "b", "b", "d")), "a")
})

test_that("'mfv()' works with missing values", {
  expect_identical(mfv(c(3, 3, 3, 2, NA)), 3)
  expect_identical(mfv(c(3, 3, 2, NA)), NA_real_)
  expect_identical(mfv(c(3, 3, 2, NA), na_rm = TRUE), 3)
  expect_identical(mfv(c(3, 3, 2, 2, NA)), NA_real_)
  expect_identical(mfv(c(3, 3, 2, 2, NA), na_rm = TRUE), c(2, 3))
  
  expect_identical(mfv(c(NA, NA)), NA)
  expect_identical(mfv(c(NA, NA), na_rm = TRUE), NaN)
})

test_that("'mfv()' works with factors", {
  expect_identical(mfv(factor(c("a", "b", "a"))), 
                   factor("a", levels = c("a", "b")))
  expect_identical(mfv(factor(c("a", "b", "a", NA))), 
                   factor(NA, levels = c("a", "b")))
  expect_identical(mfv(factor(c("a", "b", "a", NA)), na_rm = TRUE), 
                   factor("a", levels = c("a", "b")))
})