tests/testthat/test-splitvar.R

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)
  })
}
strengejacke/sjmisc documentation built on June 29, 2023, 4:28 p.m.