tests/testthat/test-colcnt.R

context("sjmisc, col_count")

library(sjmisc)
dat <- data.frame(
  c1 = c(1, 2, 3, 1, 3, NA),
  c2 = c(3, 2, 1, 2, NA, 3),
  c3 = c(1, 1, 2, 1, 3, NA),
  c4 = c(1, 1, 3, 2, 1, 2)
)

test_that("col_count", {
  expect_equal(sum(col_count(dat, count = 1, append = FALSE)), 9)
})

test_that("col_count", {
  expect_equal(sum(col_count(dat, count = NA, append = FALSE)), 3)
})

test_that("col_count", {
  expect_equal(sum(col_count(dat, c2:c4, count = 2, append = FALSE)), 5)
})

Try the sjmisc package in your browser

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

sjmisc documentation built on Sept. 24, 2019, 5:04 p.m.