Cacher is the code snippet organizer for pro developers

library(metafor)

y <- scan(what=numeric())
0.273936
0.278002
0.117789
0.170343

se <- scan(what=numeric())
0.0864617
0.0667362
0.219637
0.0783422

meta_analysis <- rma(y,se^2,method="FE")

forest.rma(meta_analysis,xlab="Beta for Interpersonal Trauma Count", slab=c("GSD","MRS","ONG","NHS"))