R code used to produce the graph shown below.

forest(res, cex=1.8) 
funnel(res)