data(Pagliaro1992)
sclero <- subset(Pagliaro1992, treat.exp == "Sclerotherapy")
m <- metagen(logOR, selogOR, data = sclero, sm = "OR")
m
# Thompson & Sharp (1999), Table IV, method (2)
metabias(m, method = "Egger")
# Thompson & Sharp (1999), Table IV, method (3a)
metabias(m, method = "Thompson")
# Thompson & Sharp (1999), Table IV, method (3b)
update(m, method.tau = "ML")
metabias(update(m, method.tau = "ML"), method = "Thompson")
Run the code above in your browser using DataLab