tests/testthat/test_common.R

test_that("Sort factors", {
  x <- factor(c("a", "b", "b", "b", "c", "c"))
  x <- SortFactor(x)
  expect_equal(levels(x), c("b", "c", "a"))
})
bioturing/rBCS documentation built on May 18, 2022, 5:26 p.m.