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]))))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.