test_that("as_measure conversion", {
measure = msr("classif.ce")
converted = as_measure(measure)
expect_class(converted, "Measure")
expect_same_address(measure, converted)
expect_list(as_measures(measure), types = "Measure")
expect_list(as_measures(list(measure)), types = "Measure")
default = as_measure(NULL, task_type = "classif")
expect_class(default, "Measure")
default = as_measures(NULL, task_type = "classif")
expect_list(default, types = "Measure")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.