Nothing
context("Test Overlapping")
test_that("multiclass.result", {
aux = overlapping(Species ~ ., iris, measures="F1", summary="return")
aux = 1/(max((1/aux$F1) - 1) + 1)
expect_equal(aux, 0.05862828)
aux = overlapping(Species ~ ., iris, measures="F1v", summary="return")
aux = 1/(mean((1/aux$F1v) - 1) + 1)
expect_equal(aux, 0.009504561)
aux = overlapping(Species ~ ., iris, measures="F2", summary="mean")
expect_equal(as.numeric(aux$F2), 0.006381766)
aux = overlapping(Species ~ ., iris, measures="F3", summary="mean")
expect_equal(as.numeric(aux$F3), 0.123333333)
aux = overlapping(Species ~ ., iris, measures="F4", summary="mean")
expect_equal(as.numeric(aux$F4), 0.043333333)
})
test_that("binary.result", {
iris = iris[1:100,]
iris$Species = factor(iris$Species)
aux = overlapping(Species ~ ., iris, measures="F1", summary="return")
aux = 1/(max((1/aux$F1) - 1) + 1)
expect_equal(aux, 0.059118951)
aux = overlapping(Species ~ ., iris, measures="F1v", summary="return")
aux = 1/(mean((1/aux$F1v) - 1) + 1)
expect_equal(aux, 0.009593841)
aux = overlapping(Species ~ ., iris, measures="F2", summary="mean")
expect_equal(as.numeric(aux$F2), 0)
aux = overlapping(Species ~ ., iris, measures="F3", summary="mean")
expect_equal(as.numeric(aux$F3), 0)
aux = overlapping(Species ~ ., iris, measures="F4", summary="mean")
expect_equal(as.numeric(aux$F4), 0)
})
test_that("validation.error",{
expect_error(overlapping(Species ~ ., iris, measures="L1"))
expect_error(overlapping(Species ~ ., iris, measures="L2", summary="abc"))
expect_error(overlapping(speed ~ ., cars))
expect_error(overlapping(speed ~ ., cars, measures="L1"))
expect_error(overlapping(speed ~ ., cars, measures="L2", summary="abc"))
})
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.