data(Fleiss93)
meta1 <- metabin(event.e, n.e, event.c, n.c,
data=Fleiss93, sm="OR")
tf1 <- trimfill(meta1)
summary(tf1)
funnel(tf1, pch=ifelse(tf1$trimfill, 1, 16),
level=0.95, comb.fixed=TRUE)
trimfill(meta1$TE, meta1$seTE, sm=meta1$sm)
Run the code above in your browser using DataLab