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
|
context("getTaskFormula")
test_that("getTaskFormula", {
## binaryclass
expect_equal(binaryclass.formula, getTaskFormula(binaryclass.task))
my.binaryclass.formula = paste(binaryclass.target, "~",
collapse(colnames(binaryclass.df[, -binaryclass.class.col]), sep = " + "))
expect_equal(as.formula(my.binaryclass.formula),
getTaskFormula(binaryclass.task, explicit.features = TRUE))
## multiclass
expect_equal(multiclass.formula, getTaskFormula(multiclass.task))
my.multiclass.formula = paste(multiclass.target, "~",
collapse(colnames(multiclass.df[, -multiclass.class.col]), sep = " + "))
expect_equal(as.formula(my.multiclass.formula),
getTaskFormula(multiclass.task, explicit.features = TRUE))
## regr
expect_equal(regr.formula, getTaskFormula(regr.task))
my.regr.formula = paste(regr.target, "~",
collapse(colnames(regr.df[, -regr.class.col]), sep = " + "))
expect_equal(as.formula(my.regr.formula),
getTaskFormula(regr.task, explicit.features = TRUE))
## regr
expect_equal(regr.num.formula, getTaskFormula(regr.num.task))
my.regr.num.formula = paste(regr.num.target, "~",
collapse(colnames(regr.num.df[, -regr.num.class.col]), sep = " + "))
expect_equal(as.formula(my.regr.num.formula),
getTaskFormula(regr.num.task, explicit.features = TRUE))
})
test_that("issue #1467", {
expect_error(getTaskFormula(unclass(iris.task)), "no applicable method")
})
|
