tests/testthat/test_MeasureClassif.R

In mllg/mlr3: Machine Learning in R - Next Generation

context("MeasureClassif")

test_that("Classification measures", {
  keys = mlr_measures$keys()
  task = tsk("sonar")
  learner = lrn("classif.featureless", predict_type = "prob")
  learner$train(task)
  p = learner$predict(task)

  for (key in keys) {
    m = mlr_measures$get(key)
    if (is.na(m$task_type) || m$task_type == "classif") {
      if (key == "classif.costs") {
        costs = 1 - diag(length(task$class_names))
        rownames(costs) = colnames(costs) = task$class_names
        m$costs = costs
      }
      perf = m$score(prediction = p, task = task, learner = learner)
      expect_number(perf, na.ok = "na_score" %in% m$properties, lower = m$range[1], upper = m$range[2])
    }
  }
})