tests/testthat/test-orsf_interaction.R

In aorsf: Accelerated Oblique Random Survival Forests

# NOT USED FOR NOW

#' object <- orsf(data = pbc_orsf,
#'                formula = Surv(time, status) ~ . - id,
#'                n_tree = 200)
#'
#' #' @srrstats {G5.2} *Appropriate error behaviour is explicitly demonstrated through tests.*
#' #' @srrstats {G5.2b} *Tests demonstrate conditions which trigger error messages.*
#'
#' test_that(
#'  'min_pairwise_obs is vetted',
#'  code = {
#'   expect_error(
#'    orsf_interaction(object, min_pairwise_obs = 0), regexp = '>= 1'
#'   )
#'   expect_error(orsf_interaction(object, min_pairwise_obs = c(2,3)),
#'                regexp = 'has length <2>')
#'  }
#'
#' )
#'
#' oi <- orsf_interaction(object, min_pairwise_obs = 1)
#'
#' test_that("all pairs included", {
#'   expect_equal(nrow(oi), choose(18, 2))
#' })