1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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)
})
|
