tests/testthat/test-ML_GBMModel.R

model <- "GBMModel"

context(model)

test_that("model fitting", {
  skip_if_not(TEST_MODEL_FITTING)
  with_parallel({
    expect_output(test_model_binary(model))
    expect_output(test_model_factor(model))
    expect_output(test_model_numeric(model))
    expect_output(test_model_ordered(model))
    expect_output(test_model_Surv(model))
  })
})
brian-j-smith/MachineShop documentation built on Nov. 12, 2019, 8:33 p.m.