inst/paramtest/test_paramtest_surv.nelson.R

In mlr3learners/mlr3learners.survival: Learners from the {survival} package for 'mlr3'

library(mlr3learners.survival)

test_that("surv.nelson", {
  learner = lrn("surv.nelson")
  fun = survival::survfit
  exclude = c("formula" # coerced internally
              )

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

  # test_that("surv.survfit_control", {
  #   learner = lrn("surv.survfit")
  #   fun = survival::boost_control # replace!
  #   exclude = c(
  #     "center", # deprecated
  #   )
  #
  #   ParamTest = run_paramtest(learner, fun, exclude)
  #   expect_true(ParamTest, info = paste0("\nMissing parameters:\n",
  #     paste0("- '", ParamTest$missing,"'", collapse = "\n")))
  # })