data(Olkin95)
meta1 <- metabin(event.e, n.e, event.c, n.c,
data=Olkin95, subset=1:10,
sm="RR", method="I")
metabias(meta1)
metabias(meta1, plotit=TRUE)
metabias(meta1, method.bias="rank")
metabias(meta1, method.bias="rank", correct=TRUE)
metabias(meta1, method.bias="count")
metabias(meta1, method.bias="linreg")$p.value
#
# Arcsine test (based on linear regression):
#
meta1.as <- metabin(event.e, n.e, event.c, n.c,
data=Olkin95, subset=1:10,
sm="AS", method="I")
metabias(meta1.as)
#
# Same result (using function metabias.default):
#
metabias(meta1.as$TE, meta1.as$seTE)
#
# No test for funnel plot asymmetry calculated:
#
meta2 <- metabin(event.e, n.e, event.c, n.c,
data=Olkin95, subset=1:5,
sm="RR", method="I")
metabias(meta2)
meta3 <- metabin(event.e, n.e, event.c, n.c,
data=Olkin95, subset=1:2,
sm="RR", method="I")
metabias(meta3)
# Test for funnel plot asymmetry calculated
# (use of argument k.min):
#
metabias(meta2, k.min=5)
Run the code above in your browser using DataLab