Nothing
test_that("coordinates can be used as features", {
task = test_make_twoclass_task(coords_as_features = TRUE)
expect_names(c("x", "y"), subset.of = task$feature_names)
})
test_that("printing works", {
task = test_make_twoclass_task()
expect_output(print(task))
expect_data_table(task$coordinates())
expect_output(print(task$truth()))
})
test_that("Supplying a non-spatio temporal task gives descriptive error message", {
expect_error(
rsmp("spcv_coords")$instantiate(tsk("boston_housing")),
"Must inherit from class 'TaskClassifST' or 'TaskRegrST'."
) # nolint
})
test_that("coordinates can be used as features", {
task = test_make_twoclass_task(coords_as_features = TRUE)
expect_names(c("x", "y"), subset.of = task$feature_names)
})
test_that("sf objects can be used for task creation", {
skip_if_not_installed("sf")
task = test_make_sf_twoclass_task()
expect_output(print(task))
expect_data_table(task$coordinates())
expect_output(print(task$truth()))
})
test_that("sf objects can be used for task creation", {
skip_if_not_installed("sf")
task = test_make_sf_regr_task()
expect_output(print(task))
expect_data_table(task$coordinates())
expect_output(print(task$truth()))
})
# https://github.com/mlr-org/mlr3spatiotempcv/issues/151
test_that("tasks created from sf objects do not duplicate rows", {
skip_if_not_installed("sf")
data = test_make_sf_twoclass_df()
task = as_task_classif_st(
data,
id = "sp_regression",
target = "response",
coordinate_names = c("x", "y"),
crs = "+proj=utm +zone=33 +datum=WGS84 +units=m +no_defs",
coords_as_features = FALSE
)
expect_equal(nrow(task$data()), nrow(data))
})
test_that("extra_args contains default arguments", {
data("ecuador", package = "mlr3spatiotempcv")
task = TaskClassifST$new(
id = "sp_regression",
backend = ecuador,
target = "slides",
coordinate_names = c("x", "y")
)
expect_equal(task$extra_args, list(
crs = NA_character_,
coordinate_names = c("x", "y"), coords_as_features = FALSE
))
})
test_that("Task creation works via constructor and sf object", {
skip_if_not_installed("sf")
data_sf = sf::st_as_sf(ecuador, coords = c("x", "y"))
# create mlr3 task
expect_error(TaskClassifST$new("ecuador_sf",
backend = data_sf, target = "slides", positive = "TRUE"
))
})
test_that("Task creation works via constructor and sf object", {
skip_if_not_installed("sf")
data = test_make_sp()
data$p_1 = c(rep("A", 18), rep("B", 18))
data$response = rnorm(36)
data_sf = sf::st_as_sf(data, coords = c("x", "y"))
# create mlr3 task via constructor
expect_error(TaskClassifST$new("ecuador_sf",
backend = data_sf,
target = "response"
), "Creating tasks from `sf` objects is not supported anymore")
})
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.