context("benchmark")
test_that("benchmark works", {
clrn = GraphLearner$new(ppl("ordinal", lrn("classif.rpart")), task_type = "ordinal")
rlrn = GraphLearner$new(ppl("ordinal", lrn("regr.rpart")), task_type = "ordinal")
learners = list(lrn("ordinal.clm"), clrn, rlrn)
task = tsk("winerating")
bmr = suppressWarnings(benchmark(benchmark_grid(task, learners, rsmp("cv", folds = 3))))
expect_benchmark_result(bmr)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.