revdep/checks.noindex/MachineShop/old/MachineShop.Rcheck/tests/testthat/test-ML_CoxModel.R

In gbm-developers/gbm: Generalized Boosted Regression Models

models <- c("CoxModel", "CoxStepAICModel")

for (model in models) {
  context(model)

  test_that("model fitting", {
    skip_if_not(TEST_MODEL_FITTING)
    with_parallel({
      expect_error(test_model_binary(model))
      expect_error(test_model_factor(model))
      expect_error(test_model_numeric(model))
      expect_error(test_model_ordered(model))
      expect_output(test_model_Surv(model))
    })
  })
}