require(metafor)
data(clbp)
edat1 <- escalc(measure="SMD",m1i=m1,m2i=m2,sd1i=s1,sd2i=s2,n1i=n1,n2i=n2,data=clbp)
DL1 <- rma(yi, vi, data=edat1, method="DL")
print(DL1) # ordinary DerSimonian-Laird method
plot(DL1) # plots of influential statistics, etc.
###
y <- as.numeric(edat1$yi) # definition of summary statistics
v <- edat1$vi
rmeta(y,v) # robust inference based on the random-effects model
rmeta(y,v,model="FE") # robust inference based on the fixed-effect model
Run the code above in your browser using DataLab