tests/testthat/test-summary_ctx_tree_cpp.R

test_that("summary reports correctly its content", {
  withr::local_seed(0)
  dts <- sample(c(0L, 1L), 100, replace = TRUE)
  dts_tree <- ctx_tree(dts, max_depth = 5, min_size = 2, backend = "C++")
  expect_snapshot(summary(dts_tree))
})

Try the mixvlmc package in your browser

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

mixvlmc documentation built on June 8, 2025, 12:35 p.m.