## ----echo = FALSE-------------------------------------------------------------
knitr::opts_chunk$set(include = TRUE, echo = TRUE, eval = TRUE, message = FALSE, warning = FALSE, 
                      out.width = "100%", fig.align = "center", 
                      cache = T, fig.asp = 0.75, fig.width = 9)

## -----------------------------------------------------------------------------
library(metaviz)

## ----echo = FALSE-------------------------------------------------------------
set.seed(2)

## ----message = TRUE, dpi = 300------------------------------------------------
funnelinf(homeopath[, c("d", "se")])

## -----------------------------------------------------------------------------
nullabor::decrypt("EwkU v7d7 9S YTV9d9TS Wo")

## ----dpi = 300----------------------------------------------------------------
# set.seed(2)
# funnelinf(homeopath[, c("d", "se")])

set.seed(2) # same random seed as used above
funnelinf(homeopath[, c("d", "se")], 
          show_solution = TRUE)

## ----echo = FALSE-------------------------------------------------------------
set.seed(3)

## ----dpi = 300----------------------------------------------------------------
funnelinf(homeopath[, c("d", "se")], 
          n = 4)

## -----------------------------------------------------------------------------
nullabor::decrypt("EwkU v7d7 9S YTV9d9TS Wu")

## ----echo = FALSE-------------------------------------------------------------
set.seed(4)

## ----dpi = 300----------------------------------------------------------------
funnelinf(homeopath[, c("d", "se")], n = 4, 
          null_model = "FEM")

## -----------------------------------------------------------------------------
nullabor::decrypt("EwkU v7d7 9S YTV9d9TS WW")

## ----dpi = 300----------------------------------------------------------------
funnelinf(homeopath[, c("d", "se")], n = 4, null_model = "FEM", 
          rorschach = TRUE)

## ----echo = FALSE-------------------------------------------------------------
set.seed(4)

## ----dpi = 300----------------------------------------------------------------
funnelinf(homeopath[, c("d", "se")], n = 4, 
          y_axis = "precision")

## ----echo = FALSE-------------------------------------------------------------
set.seed(4)

## ----dpi = 300----------------------------------------------------------------
funnelinf(homeopath[, c("d", "se")], n = 4, 
          egger = TRUE, 
          trim_and_fill = TRUE, 
          trim_and_fill_side = "right")

## -----------------------------------------------------------------------------
age <- factor(homeopath$year > 2000, levels = c(FALSE, TRUE), labels = c("old", "new"))

## -----------------------------------------------------------------------------
set.seed(4)

## ----dpi = 300----------------------------------------------------------------
funnelinf(homeopath[, c("d", "se")], n = 4, null_model = "FEM", 
          group = age)