tests/testthat/test-imputationHotDeck.R

In Echinoidea/hooks-imputation: Data Frame Imputation

# Is output of type list
test_that("is of type list", {
  expect_type(imputationHotDeck(aqi_cities,
                                by.row = TRUE,
                                col.range = 2:ncol(aqi_cities)),
              'list')
})

# Does output contain any NA values
test_that("result contains NA values", {
  expect_failure(expect_na(imputationHotDeck(aqi_cities,
                                             by.row = TRUE,
                                             col.range = 2:ncol(aqi_cities))))
})

# Is output the same size as input
test_that("dim(output) == dim(input)", {
  expect_equal(dim(imputationHotDeck(aqi_cities,
                                     by.row = TRUE,
                                     col.range = 2:ncol(aqi_cities))),
               dim(aqi_cities))
})