inst/paramtest/test_paramtest_surv.cvcoxboost.R

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

library(mlr3learners.coxboost)

test_that("surv.cvcoxboost", {
  learner = lrn("surv.cvcoxboost")
  fun = CoxBoost::cv.CoxBoost
  exclude = c("time",
              # coerced internally
              "status",
              # coerced internally
              "x",
              # coerced internally
              "subset",
              # handled by task
              "weights",
              # handled by task
              "parallel",
              # handled by future
              "upload.x",
              # handled by future
              "multicore" # handled by future
  )

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

# example for checking a "control" function of a learner
test_that("surv.cvcoxboost_optimCoxBoostPenalty", {
  learner = lrn("surv.cvcoxboost")
  fun = CoxBoost::optimCoxBoostPenalty # replace!
  exclude = c("time", # coerced internally
              "status", # coerced internally
              "x", # coerced internally
              "parallel" # handled by future
  )

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

test_that("surv.cvcoxboost_CoxBoost", {
  learner = lrn("surv.cvcoxboost")
  fun = CoxBoost::CoxBoost # replace!
  exclude = c("time", # coerced internally
              "status", # coerced internally
              "x", # coerced internally
              "parallel", # handled by future
              "subset", # handled by task
              "weights", # handled by task
              "stepno" # optimised in cv.CoxBoost
  )

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

test_that("surv.cvcoxboost_predict", {
  learner = lrn("surv.cvcoxboost")
  fun = CoxBoost:::predict.CoxBoost
  exclude = c("object", # handled by self$model
              "newdata", # handled by task
              "newtime", # handled by newdata
              "newstatus", # handled by newdata
              "subset", # handled by task,
              "times", # all times returned
              "type" # handled internally
  )

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