# NOT RUN {
library(parameters)
mydat <<- data.frame(
effectsize = c(-0.393, 0.675, 0.282, -1.398),
stderr = c(0.317, 0.317, 0.13, 0.36)
)
if (require("metafor", quietly = TRUE)) {
model <- rma(yi = effectsize, sei = stderr, method = "REML", data = mydat)
model_parameters(model)
}
# }
# NOT RUN {
# with subgroups
if (require("metafor", quietly = TRUE)) {
data(dat.bcg)
dat <- escalc(
measure = "RR",
ai = tpos,
bi = tneg,
ci = cpos,
di = cneg,
data = dat.bcg
)
dat$alloc <- ifelse(dat$alloc == "random", "random", "other")
model <- rma(yi, vi, mods = ~alloc, data = dat, digits = 3, slab = author)
model_parameters(model)
}
if (require("metaBMA", quietly = TRUE)) {
data(towels)
m <- meta_random(logOR, SE, study, data = towels)
model_parameters(m)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab