tests/testthat/test-03_apply_model.R

test_that("output", {
  obj <- suppressMessages({apply_model(obj2,test_partition_prop =  0.5)})
  expect_no_error(obj)
  expect_type(obj, type = "list")
  expect_type(obj$stepwise_process , type = "list")
  expect_type(obj$ordered_indep_vars , type = "character")
  expect_type(obj$bootstrap_data , type = "list")

})

Try the tradeoffaucdim package in your browser

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

tradeoffaucdim documentation built on June 10, 2025, 9:09 a.m.