Nothing
skip_if_not_installed("kknn")
test_that("autotest", {
learner = mlr3::lrn("regr.kknn")
expect_learner(learner)
result = run_autotest(learner)
expect_true(result, info = result$error)
})
test_that("custom model", {
task = tsk("mtcars")
learner = mlr3::lrn("regr.kknn", store_model = TRUE)
expect_null(learner$model)
learner$train(task)
mod = learner$model
expect_list(mod, names = "unique", len = 4L)
expect_null(mod$kknn)
expect_formula(mod$formula)
expect_data_table(mod$data)
expect_list(mod$pv, names = "unique")
learner$predict(task)
mod = learner$model
expect_list(mod, names = "unique", len = 4L)
expect_s3_class(mod$kknn, "kknn")
expect_formula(mod$formula)
expect_data_table(mod$data)
expect_list(mod$pv, names = "unique")
learner$param_set$values = list(k = 3, store_model = FALSE)
learner$train(task)$predict(task)
expect_null(learner$model$kknn)
})
test_that("error for k >= n", {
task = tsk("mtcars")$filter(1:3)
learner = mlr3::lrn("regr.kknn", k = 4)
expect_error(learner$train(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.