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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.