Nothing
## ---- 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)
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.