tests/testthat/test-data.R

testthat::test_that("mheart1s20", {
  data("mheart1s20")

  testthat::expect_equal(object = nrow(mheart1s20), expected = 594)
  testthat::expect_equal(object = ncol(mheart1s20), expected = 9)
  testthat::expect_s3_class(object = mheart1s20, class = "data.frame")
})
ellessenne/mice.mcerror documentation built on May 5, 2022, 12:34 a.m.