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

Try the surveydata package in your browser

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

surveydata documentation built on March 31, 2023, 10:35 p.m.