Nothing
test_that("catch bad inputs", {
cat("\n\n", as.character(Sys.time()), "--------------- test_bad_input.R ---------------\n\n")
mpm <- money_priming_sub()
# passing only affirmatives should result in an informative error
mpm <- mpm |> mutate(affirm = yi / sqrt(vi) > qnorm(.975))
aff <- mpm |> filter(affirm)
expect_error(phacking_meta(aff$yi, aff$vi, parallelize = FALSE))
# passing sei or vi vector whose length doesn't match yi should throw error
expect_error(phacking_meta(mpm$yi, 2, parallelize = FALSE))
# passing negative sei should result in error
expect_error(phacking_meta(mpm$yi, sei = -sqrt(mpm$vi), parallelize = FALSE))
})
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.