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)
})

Try the sjmisc package in your browser

Any scripts or data that you put into this service are public.

sjmisc documentation built on May 29, 2024, 10:11 a.m.