tests/testthat/test_na.R

library(mlprepr)
context("Handling NAs")

test_that("NAs on complex dataset", {
  dt <- function() test_dt_2(seed = 42)
  expect_equal(nrow(encode_nas(dt())), nrow(dt()))
  expect_equal(nrow(na.omit(encode_nas(dt()))), nrow(dt()))
})
desstatsutiles/prepare.data documentation built on May 15, 2019, 5:05 a.m.