# \donttest{
data(fish)
warm_dat <- fish
model <- metafor::rma.mv(
yi = lnrr, V = lnrr_vi,
random = list(~1 | group_ID, ~1 | es_ID),
mods = ~ experimental_design + trait.type +
deg_dif + treat_end_days,
method = "REML", test = "t", data = warm_dat,
control = list(optimizer = "optim",
optmethod = "Nelder-Mead"))
test <- get_data_raw(
model, mod = "trait.type",
group = "group_ID",
at = list(trait.type = c("physiology",
"morphology")))
test2 <- get_data_raw(model, mod = "1", group = "group_ID")
# }
Run the code above in your browser using DataLab