Nothing
test_that("Classification measures", {
keys = mlr_measures$keys("^classif\\.")
task = tsk("sonar")
learner = lrn("classif.rpart", 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 = FALSE, lower = m$range[1], upper = m$range[2])
}
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.