tests/testthat/test_cer_func.R

context("cer_func")

newdataGr <- iris[5]

object <- predict(classify(reduce(iris, 
                        targetDim = 2, 
                        group = Species,
                        output = "matrix")), 
        iris[-5])

object2 <- predict(classify(reduce(dataMat, 
                                  targetDim = 2, 
                                  group = "Group",
                                  output = "matrix")), 
                   listMatToDataframe(dataMat, group = "Group"))


test_that("cer_func produces predict object when ind = FALSE", {
  expect_equal(cer_func(ind = FALSE, object, newdataGr), object)
})

test_that("cer_func produces predict object when ind = TRUE", {
  expect_equal(cer_func(ind = TRUE, object2, listMatToDataframe(dataMat, group = "Group")[[5]]), object2)
})
BenBarnard/slidR documentation built on May 5, 2019, 2:40 p.m.