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