# NOT RUN {
### meta-analysis of all trials including ISIS-4 using a FE model
res <- rma(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat.egger2001, method="FE")
# }
# NOT RUN {
### fit FE model to all possible subsets (65535 models)
sav <- gosh(res)
### create GOSH plot
### red points for subsets that include and blue points
### for subsets that exclude study 16 (the ISIS-4 trial)
plot(sav, out=16, breaks=100, adjust=.3)
# }
Run the code above in your browser using DataLab