tests/testthat/test_classifier.R

In HectorRDB/Ecume: Equality of 2 (or k) Continuous Univariate and Multivariate Distributions

library(testthat)

test_that("the classifier_test works with all inputs",{
   x <- matrix(c(stats::runif(100, 0, 1),
                 stats::runif(100, -1, 1)),
               ncol = 2)
   y <- matrix(c(stats::runif(100, 0, 3),
                 stats::runif(100, -1, 1)),
               ncol = 2)
   set.seed(22)
   test <- classifier_test(x, y)
   set.seed(22)
   test2 <- classifier_test(list(x, y))
   expect_is(test, class = "list")
   expect_equal(test, test2)
   x <- matrix(c(stats::runif(100, 0, 1),
                 stats::runif(100, -1, 1)),
               ncol = 1)
   y <- matrix(c(stats::runif(100, 0, 3),
                 stats::runif(100, -1, 1)),
               ncol = 1)
   set.seed(22)
   test <- classifier_test(x, y)
   set.seed(22)
   test2 <- classifier_test(list(x, y))
   expect_is(test, class = "list")
   expect_equal(test, test2)
   x <- matrix(c(stats::runif(200, 0, 1),
                 stats::runif(200, -1, 1)),
               ncol = 2)
   y <- matrix(c(stats::runif(100, 0, 3),
                 stats::runif(100, -1, 1)),
               ncol = 2)
   set.seed(22)
   test <- classifier_test(x, y)
   set.seed(22)
   test2 <- classifier_test(list(x, y))
   expect_is(test, class = "list")
   expect_equal(test, test2)
})

test_that("the classifier_test works with three inputs",{
   x <- matrix(c(stats::runif(200, 0, 1),
                 stats::runif(200, -1, 1)),
               ncol = 2)
   y <- matrix(c(stats::runif(100, 0, 2),
                 stats::runif(100, -1, 1)),
               ncol = 2)
   z <- matrix(c(stats::runif(100, 0, 1),
                 stats::runif(100, -1, 1)),
               ncol = 2)
   set.seed(22)
   expect_is(classifier_test(x = list(x = x, y = y, z = z)),
             class = "list")
})