context("getUsedFactorLevels")
test_that("getUsedFactorLevels", {
used.levels = letters[1:3]
all.levels = letters
x = factor(x = used.levels, levels = all.levels)
expect_equal(sort(getUsedFactorLevels(x)), used.levels)
x = factor(x = used.levels)
expect_equal(used.levels, levels(x))
})
Generated by dwww version 1.15 on Sat May 18 13:51:51 CEST 2024.