context("Observed power warning")
test_that("observed power warning is thrown", {
set.seed(23)
fm <- lmer(y ~ x + (1|g), data=subset(simdata, x < 8))
expect_warning(temp <- powerSim(fm), 'This appears to be an "observed power" calculation')
expect_is(temp, "powerSim")
expect_equal(temp$x, 8)
expect_equal(temp$n, 10)
expect_output(print(temp), "observed power calculation")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.