inst/paramtest/test_paramtest_regr.liblinear2l1svr.R

In mlr3learners/mlr3learners.liblinear: Learners from LiblineaR package for mlr3

library(mlr3learners.liblinear)

test_that("regr.liblinearl2l1svr", {
  learner = lrn("regr.liblinearl2l1svr")
  fun = LiblineaR::LiblineaR
  exclude = c(
    "data", # handled by mlr3
    "target", # handled by mlr3
    "type", # determined by the chosen learner
    "epsilon", # overwritten bt svr_eps
    "wi" # not used in regression
  )

  ParamTest = run_paramtest(learner, fun, exclude)
  expect_true(ParamTest, info = paste0(
    "
Missing parameters:
",
    paste0("- '", ParamTest$missing, "'", collapse = "
")))
})