tests/testthat/test-find_mad.R

test_that("find_mad", {
  expect_snapshot(find_mad(
    data = mtcars,
    col.list = names(mtcars),
    criteria = 3
  ))
  mtcars2 <- mtcars
  mtcars2$car <- row.names(mtcars)
  expect_snapshot(find_mad(
    data = mtcars2,
    col.list = names(mtcars),
    ID = "car",
    criteria = 3
  ))
})
RemPsyc/rempsyc documentation built on July 2, 2024, 9:41 p.m.