tests/testthat/test-erase_fit.R

test_that("erase_fit erase the fit", {
  mod <- full(Titanic)
  mod0 <- erase_fit(mod)
  expect_null(mod0$ll)
  expect_null(mod0$prob)
})

Try the stagedtrees package in your browser

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

stagedtrees documentation built on May 29, 2024, 12:33 p.m.