if (FALSE) {
# using the example data from Anderson et al. 2010 and fitting the default model
# (note that the model can take a while to fit)
fit <- RoBMA(r = Anderson2010$r, n = Anderson2010$n,
study_names = Anderson2010$labels, algorithm = "ss")
funnel(fit)
}
Run the code above in your browser using DataLab