tests/testthat/test_base_getTaskFormula.R

In Najah-lshanableh/R-data-mining2: Machine Learning in R

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")
})