# \donttest{
data(fish)
warm_dat <- fish
model <- metafor::rma.mv(
yi = lnrr, V = lnrr_vi,
random = list(~1 | es_ID, ~1 | group_ID),
mods = ~ experimental_design - 1,
method = "REML", test = "t", data = warm_dat,
control = list(optimizer = "optim",
optmethod = "Nelder-Mead"))
res <- mod_results(model, mod = "experimental_design", group = "group_ID")
num_studies(res$data, moderator, stdy)
# }
Run the code above in your browser using DataLab