tests/testthat/test-mira.R

context("mira")

imp <- mice(nhanes, print = FALSE, maxit = 1, seed = 121, m = 1)
fit <- with(imp, sd(bmi))

test_that("list prints without an error", {
  expect_output(print(fit))
})
stefvanbuuren/mice documentation built on April 21, 2024, 7:37 a.m.