require(metafor)
data(SMT)
edat2 <- escalc(m1i=m1,sd1i=s1,n1i=n1,m2i=m2,sd2i=s2,n2i=n2,measure="MD",data=SMT)
LRT(yi, vi, data=edat2, B=10)
# Random-effects model.
# This is an example command for illustration. B should be >= 1000.
LRT(yi, vi, data=edat2, model="FE", B=10)
# Fixed-effect model.
# This is an example command for illustration. B should be >= 1000.
Run the code above in your browser using DataLab