Nothing
### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true")
context("Checking misc: reporter() function")
source("settings.r")
test_that("reporter() works correctly for 'rma.uni' objects.", {
dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg)
expect_error(res <- rma(yi, vi, data=dat), NA) # to avoid this being an empty test
skip_on_cran()
reporter(res, open=FALSE)
})
rm(list=ls())
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.