tests/testthat/test_kernlab_classif_lssvm.R

In mlr-org/mlr3extralearners: Extra Learners For mlr3

test_that("autotest", {
  set.seed(1)
  learner = lrn("classif.lssvm")
  expect_learner(learner)
  result = run_autotest(learner, exclude = "single|utf8_feature_names_multiclass", N = 50)
  expect_true(result, info = result$error)
})

test_that("classif.lssvm sigma", {
  learner = lrn("classif.lssvm", kpar = list(sigma = 0.2))
  t = tsk("iris")
  learner$train(t)
  expect_equal(learner$model@kernelf@kpar$sigma, 0.2)

  learner = lrn("classif.lssvm", sigma = 0.2)
  learner$train(t)
  expect_equal(learner$model@kernelf@kpar$sigma, 0.2)
})