# NOT RUN {
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")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab