5 Forest Plot

# draw a very basic forest plot of the results
forest(res, header=TRUE, addpred=TRUE, slab = dat$Author)

# Slightly more complex forest plot
forest(res, header=TRUE, slab=dat$Author,
       addpred=TRUE,xlim=c(-1.5,1.3),
       ilab=cbind(dat$Branch,dat$Sample), ilab.xpos=c(-.8,-.6))
text(-.8, 53, "Branch", cex=.5, font = 2)
text(-.6, 53, "Sample",cex=.5, font = 2)