Nothing
test_that("custom has duplicated ids", {
r = rsmp("custom")
expect_identical(r$duplicated_ids, TRUE)
})
test_that("custom_cv accepts external factor", {
task = tsk("penguins")
task$filter(1:10)
ccv = rsmp("custom_cv")
split_f = factor(c(rep(letters[1:3], each = 3), NA))
ccv$instantiate(task, f = split_f)
expect_class(ccv$instance, "list")
expect_length(ccv$instance, 3)
expect_length(ccv$train_set(3), 6)
expect_identical(ccv$duplicated_ids, FALSE)
})
test_that("custom_cv accepts task feature", {
task = tsk("german_credit")
ccv = rsmp("custom_cv")
expect_identical(ccv$duplicated_ids, FALSE)
ccv$instantiate(task, f = task$data(cols = "job")[[1L]])
expect_class(ccv$instance, "list")
expect_length(ccv$instance, 4)
expect_length(ccv$train_set(3), 370)
ccv$instantiate(task, col = "job")
expect_class(ccv$instance, "list")
expect_length(ccv$instance, 4)
expect_length(ccv$train_set(3), 370)
})
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.