tests/testthat/test-split-apply-combine-level.R

context("sac_level()")

test_that("base case",{

  out <- fabricate(sleep, sleep=modify_level(by="group", ybar=mean(extra)))

  # ybar constant within group
  expect_true(all(tapply(out$ybar, out$group, function(x) all(x == x[1]))))


})
graemeblair/DDfabricate documentation built on Feb. 3, 2024, 6:39 a.m.