tests/testthat/test-downfactor.R

context("downfactor")


test_that("base case works", {

  x = letters[1:5]

  expect_equal(downfactor(x, n = 2),
               factor(c("a", "b", "Other", "Other", "Other"),
                      c("a", "b", "Other")))

})
wkostelecki/wtils documentation built on May 29, 2019, 2:29 p.m.