tests/testthat/test-08-tools.R

#
# Author: andrie
###############################################################################



test_that("dropout calculation is correct", {
  rest <- setNames(c(215, 35), c("id", "Q23_other"))
  expect_equal(dropout(membersurvey[-(108:109)]), rest)
})
andrie/surveydata documentation built on March 13, 2023, 2 a.m.