require(metafor)
data(PPI)
edat1 <- escalc(ai=d1,n1i=n1,ci=d2,n2i=n2,measure="OR",data=PPI)
STR(yi, vi, data=edat1, B=10)
# Random-effects model (REML estimation).
# This is an example command for illustration. B should be >= 1000.
STR(yi, vi, data=edat1, method="SJ",B=10)
# Random-effects model (Sidik–Jonkman method).
# This is an example command for illustration. B should be >= 1000.
STR(yi, vi, data=edat1, method="FE",B=10)
# Fixed-effects model.
# This is an example command for illustration. B should be >= 1000.
Run the code above in your browser using DataLab