tests/testthat/test_impute.R

context("Impute return value")
test_that("imputeGroup returns matrix", {
  expect_is(imputeGroup(matrix(NA, ncol = 2, nrow = 2), c(1, 2)), "matrix")
  expect_false(any(is.na(imputeGroup(matrix(NA, ncol = 2, nrow = 2), c(1, 2)))))
})
ddiez/q3tools documentation built on May 15, 2019, 1:52 a.m.