if (FALSE) {
data(Roberts)
fit <- with(Roberts, uvmeta(r=SDM, r.se=SE, method="BAYES"))
dplot(fit)
dplot(fit, distr_type = "posterior")
dplot(fit, par = "tau", distr_type = "prior")
dplot(fit, plot_type = "hist")
}
Run the code above in your browser using DataLab