revdep/checks.noindex/pmml/old/pmml.Rcheck/tests/testthat/test_pmml.rfsrc.R

In gbm-developers/gbm: Generalized Boosted Regression Models

library(randomForestSRC)
data(veteran)

teardown({
  detach("package:randomForestSRC", unload = TRUE)
})

test_that("no error occurs in doc example", {
  skip_on_cran() # CRAN only runs test against current version of randomForestSRC

  veteran_mod <- rfsrc(Surv(time, status) ~ .,
    data = veteran,
    ntree = 5, forest = TRUE, membership = TRUE
  )
  expect_error(pmml(veteran_mod), NA) # expect no error
})