tests/testthat/test_classif_sda.R

In mlr: Machine Learning in R

test_that("classif_sda", {
  requirePackagesOrSkip("sda", default.method = "load")

  capture.output({
    m = sda::sda(as.matrix(dropNamed(multiclass.train, multiclass.target)),
      multiclass.train[, multiclass.target])
    p = sda::predict.sda(m, as.matrix(dropNamed(multiclass.test,
      multiclass.target)))
  })

  testSimple("classif.sda", multiclass.df, multiclass.target,
    multiclass.train.inds, p$class)
  testProb("classif.sda", multiclass.df, multiclass.target,
    multiclass.train.inds, p$posterior)
})