# example model from robumeta::robu()
hier_mod <- robumeta::robu(effectsize ~ binge + followup + sreport + age,
data = robumeta::hierdat, studynum = studyid,
var.eff.size = var, modelweights = "HIER",
small = TRUE)
ci <- 0.95 # example set value
hier_mb <- metabias(data = robumeta::hierdat, # data passed to model
values = list(ci_level = ci), # value used
stats = robu_ci(hier_mod, ci_level = ci), # stats from model
fits = list("robu" = hier_mod)) # model object
hier_mb
summary(hier_mb)
Run the code above in your browser using DataLab