context("Test Balance")
test_that("multiclass1.result", {
aux = balance(Species ~ ., iris, measures="B1")
expect_equal(as.numeric(aux$B1), 2.220446e-16)
aux = balance(Species ~ ., iris, measures="B2")
expect_equal(as.numeric(aux$B2), 0)
})
test_that("multiclass2.result", {
class = c(rep(c(1,2), each=40), rep(3, 20))
data = data.frame(x=runif(100), class=factor(class))
aux = balance(class ~ ., data, measures="B1")
expect_equal(as.numeric(aux$B1), 0.03977028)
aux = balance(class ~ ., data, measures="B2")
expect_equal(as.numeric(aux$B2), 0.05263158)
})
test_that("binary.result", {
iris = iris[1:100,]
iris$Species = factor(iris$Species)
aux = balance(Species ~ ., iris, measures="B1")
expect_equal(as.numeric(aux$B1), 0)
aux = balance(Species ~ ., iris, measures="B2")
expect_equal(as.numeric(aux$B2), 0)
})
test_that("validation.error",{
expect_error(balance(Species ~ ., iris, measures="L1"))
expect_error(balance(Species ~ ., iris, measures="L2", summary="abc"))
expect_error(overlapping(speed ~ ., cars))
expect_error(balance(speed ~ ., cars, measures="L1"))
expect_error(balance(speed ~ ., cars, measures="L2", summary="abc"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.