if (require("testthat") && require("sjmisc") && require("dplyr")) {
data(mtcars)
test_that("std, split_var", {
tmp <- split_var(mtcars, disp, n = 3, append = FALSE)
expect_equal(sum(tmp$disp_g == 1), 11)
tmp <- mtcars %>%
dplyr::group_by(cyl) %>%
split_var(disp, n = 3, append = FALSE)
expect_equal(sum(tmp$disp_g == 1), 10)
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.