Nothing
test_that("all regr filters return correct filter values", {
task = mlr_tasks$get("mtcars")
filters = mlr_filters$mget(mlr_filters$keys())
for (f in filters) {
if ("regr" %in% f$task_types && all(require_namespaces(f$packages, quietly = TRUE))) {
f$calculate(task)
expect_filter(f, task = task)
}
}
})
test_that("filters throw errors on missing values", {
data = tsk("mtcars")$data()
data$cyl[1] = NA
task = as_task_regr(data, target = "mpg")
filters = mlr_filters$mget(mlr_filters$keys())
for (f in filters) {
if ("regr" %nin% f$task_types) {
next
}
if (!all(require_namespaces(f$packages, quietly = TRUE))) {
next
}
if ("missings" %in% f$properties) {
f$calculate(task)
} else {
expect_error(f$calculate(task), "missing values")
}
}
})
test_that("Errors for unsupported features", {
task = tsk("boston_housing")
filters = mlr_filters$mget(mlr_filters$keys())
# supported: numeric, integer
# supplied: factor, integer, numeric
for (f in filters) {
if ("factor" %nin% f$feature_types && all(require_namespaces(f$packages, quietly = TRUE))) {
expect_error(f$calculate(task))
}
}
})
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.