tests/testthat/test_base_ModelMultiplexer.R

context("ModelMultiplexer")


test_that("ModelMultiplexer inherits properties", {
  bls = list(
    makeLearner("classif.lda"),
    makeLearner("classif.randomForest")
  )
  lrn = makeModelMultiplexer(bls)
  expect_set_equal(getLearnerProperties(lrn), getLearnerProperties(bls[[1L]]))

  lrn = setHyperPars(lrn, selected.learner = "classif.randomForest")
  expect_set_equal(getLearnerProperties(lrn), getLearnerProperties(bls[[2L]]))
})
Najah-lshanableh/R-data-mining2 documentation built on May 6, 2019, 10:11 a.m.