Nothing
test_that("detects missing variables", {
foo <- data.frame(a = 1, w = 1, m = 1, z = NA, y = 1)
expect_error(
crumble(foo, "a", "y", "m", "z", "w"),
"Assertion on 'data' failed: Missing data found in treatment/covariate/mediator/observed nodes."
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.