tests/testthat/test_datasets.R

context("test_datasets")

ANCRTAdjust::ancrt

testthat::test_that("survey dataset has correct factor levels", {
  expect_equal(levels(ancrt$faciluid), levels(as.factor(paste("F_", seq(1, 1000), sep = ""))))
})
brittanyblouin/ANCRTAdjust documentation built on Oct. 28, 2019, 4:53 a.m.