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

test_that("error when object is not naiveBayes", {
  a <- "foo"
  expect_error(pmml.naiveBayes(a), "Not a legitimate naiveBayes object")
})
gbm-developers/gbm documentation built on Feb. 16, 2024, 6:13 p.m.