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