# example data by Snedecor and Cochran:
data("SnedecorCochran")
if (FALSE) {
# analysis using improper uniform prior
# (may take a few seconds to compute!):
bma <- bayesmeta(y=SnedecorCochran[,"mean"],
sigma=sqrt(SnedecorCochran[,"var"]),
label=SnedecorCochran[,"no"])
# show some summary statistics:
bma
# show a bit more details:
summary(bma)
# show a forest plot:
forestplot(bma)
# show some more plots:
plot(bma)
}
Run the code above in your browser using DataLab