1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
test_that("learners_all_general listLearners", {
x1 = listLearnersCustom()
x2 = listLearnersCustom("classif")
x3 = listLearnersCustom("regr")
x4 = listLearnersCustom("surv")
x5 = listLearnersCustom("cluster")
x6 = listLearnersCustom("multilabel")
expect_true(nrow(x1) > 40L)
expect_true(nrow(x2) > 20L)
expect_true(nrow(x3) > 10L)
expect_true(nrow(x4) > 1L)
expect_true(nrow(x5) > 1L)
expect_true(nrow(x6) > 0L)
expect_true(setequal(x1$id, c(x2$id, x3$id, x4$id, x5$id, x6$id)))
x6 = listLearnersCustom("classif",
properties = c("multiclass", "factors", "prob"))
expect_true(nrow(x6) > 10 && all(x6$id %in% x2$id))
})
test_that("learners_all_general listLearners doesn't load packages", {
npacks.before = length(search())
listLearnersCustom("classif")
npacks.after = length(search())
expect_equal(npacks.before, npacks.after)
})
test_that("listLearners for task", {
x1 = listLearnersCustom(binaryclass.task)
x2 = listLearnersCustom(multiclass.task)
x3 = listLearnersCustom(regr.task)
expect_true(nrow(x1) > 10)
expect_true(nrow(x2) > 10)
expect_true(nrow(x3) > 10)
expect_true(length(intersect(x1$id, x3$id)) == 0)
expect_true(length(intersect(x2$id, x3$id)) == 0)
expect_true(all(x2$id %in% x1$id))
})
test_that("fuzzy matching works for mistyped learners", {
expect_error(makeLearner("classi.randomFore",
config = list(on.par.without.desc = "quiet"),
expected = "classif.randomForest"))
})
|
