Nothing
context("Test nearZeroVar")
test_that("nearZeroVar works properly with foreach", {
## shouldn't trigger error
r <- nearZeroVar(iris, foreach = T)
## should pick up x, y and z
bad.iris <- cbind(iris,
x = rep(-1, nrow(iris)),
y = rep(0, nrow(iris)),
z = rep(1, nrow(iris)))
r1 <- nearZeroVar(bad.iris)
r2 <- nearZeroVar(bad.iris, foreach = T)
expect_equal(r1, r2)
r1 <- nearZeroVar(bad.iris, names = T)
r2 <- nearZeroVar(bad.iris, names = T, foreach = T)
expect_equal(r1, r2)
r1 <- nearZeroVar(bad.iris, saveMetrics = T)
r2 <- nearZeroVar(bad.iris, saveMetrics = T, foreach = T)
expect_equal(r1, r2)
})
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.