revdep/checks.noindex/mlr3proba/old/mlr3proba.Rcheck/tests/testthat/test_mlr_learners_surv_cvglmnet.R

In gbm-developers/gbm: Generalized Boosted Regression Models

context("surv.cvglmnet")

test_that("autotest", {
  skip_on_cran()
  learner = mlr_learners$get("surv.cvglmnet")
  expect_learner(learner)
  result = run_autotest(learner, check_replicable = FALSE)
  expect_true(result, info = result$error)
})

test_that("ctrl.pars", {
  skip_on_cran()
  set.seed(1)
  task = tgen("simsurv")$generate(20)
  learner = mlr_learners$get("surv.cvglmnet")
  learner$param_set$values = list(mxit = 90, s = 0.1)
  expect_silent(expect_prediction_surv(learner$train(task)$predict(task)))
})