tests/testthat/test-removevar.R

context("sjmisc, remove_var")

library(sjmisc)
data(efc)

test_that("remove_var", {
  x <- remove_var(efc, 1:3)
  expect_equal(ncol(x), 23)

  x <- remove_var(efc, c82cop1:c90cop9)
  expect_equal(ncol(x), 17)
})
sjPlot/sjmisc documentation built on June 28, 2023, 2:39 p.m.