Nothing
test_that("it works for numeric vectors", {
x <- c(NA, c(1.1, 0.2), NA)
filled <- imputeUnivariate(x)
expect_true(!anyNA(filled))
expect_true(is.numeric(filled))
})
test_that("it works for character vectors", {
x <- c(LETTERS[1:10], NA, NA)
filled <- imputeUnivariate(x)
expect_true(!anyNA(filled))
expect_true(is.character(filled))
})
test_that("it works for factors", {
x <- factor(c(LETTERS[1:10], NA, NA))
filled <- imputeUnivariate(x)
expect_true(!anyNA(filled))
expect_true(is.factor(filled))
})
test_that("it works for logical vectors", {
x <- c(TRUE, TRUE, FALSE, NA, NA)
filled <- imputeUnivariate(x)
expect_true(!anyNA(filled))
expect_true(is.logical(filled))
})
test_that("it works for date vectors", {
x <- generateNA(rep(Sys.Date(), 10L), p = 0.5)
filled <- imputeUnivariate(x)
expect_true(!anyNA(filled))
expect_s3_class(filled, "Date")
})
test_that("it works for matrix objects", {
x <- generateNA(cbind(1:10, 1:10), p = 0.5)
filled <- imputeUnivariate(x)
expect_true(!anyNA(filled))
})
test_that("it works for data.frames", {
x <- generateNA(head(iris), p = 0.5)
filled <- imputeUnivariate(x)
expect_true(!anyNA(filled))
})
test_that("it can impute subset of all columns", {
x <- generateNA(iris, seed = 10L)
filled <- imputeUnivariate(x, v = c("Species", "Petal.Length"))
expect_true(!anyNA(filled[["Species"]]))
expect_true(anyNA(filled[["Petal.Width"]]))
})
test_that("it fails when all values in a column are missing", {
x <- rep(NA, 10L)
expect_error(imputeUnivariate(x))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.