Nothing
test_that("C++ based context draw produces identical results as the R one", {
skip_on_ci()
skip_on_cran()
withr::local_seed(0)
dts <- sample(c("A", "B", "C"), 100, replace = TRUE)
r_tree <- ctx_tree(dts, min_size = 2)
cpp_tree <- ctx_tree(dts, min_size = 2, keep_position = FALSE, backend = "C++")
expect_true(compare_output(
{
exercise_draw(cpp_tree)
},
{
exercise_draw(r_tree)
}
))
for (k in 1:5) {
dts <- sample(0:k, 40, replace = TRUE)
r_tree <- ctx_tree(dts, min_size = 1, max_depth = 8)
cpp_tree <- ctx_tree(dts, min_size = 1, max_depth = 8, keep_position = FALSE, backend = "C++")
expect_true(compare_output(
{
exercise_draw(cpp_tree)
},
{
exercise_draw(r_tree)
}
))
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.