context("benchmark")
test_that("benchmark works", {
learners = lapply(c("surv.kaplan", "surv.coxph"), lrn)
task = tsk("rats")
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.