tests/testthat/test_base_resample_b632plus.R

context("resample_b632+")

test_that("b632+", {
  res = makeResampleDesc("Bootstrap", iters = 3, predict = "both")
  m = setAggregation(mmce, b632plus)
  r = resample(makeLearner("classif.lda"), multiclass.task, res, measures = m)
  x = r$aggr[["mmce.b632plus"]]
  expect_true(is.numeric(x) & length(x) == 1 && !is.na(x))
})
riebetob/mlr documentation built on May 20, 2019, 5:58 p.m.