tests/testthat/test-ML_CoxModel.R

test_that("model fitting", {
  skip_if_not(TEST_MODEL_FITTING)
  with_parallel({
    models <- c("CoxModel", "CoxStepAICModel")
    for (model in models) {
      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))
    }
  })
})

Try the MachineShop package in your browser

Any scripts or data that you put into this service are public.

MachineShop documentation built on Sept. 11, 2024, 6:28 p.m.