test_that("getTaskFormula", {
## binaryclass
expect_equal(binaryclass.formula, getTaskFormula(binaryclass.task),
ignore_formula_env = TRUE)
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),
ignore_formula_env = TRUE)
## multiclass
expect_equal(multiclass.formula, getTaskFormula(multiclass.task),
ignore_formula_env = TRUE)
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),
ignore_formula_env = TRUE)
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),
ignore_formula_env = TRUE)
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.