n <- c(55, 190, 65, 35)
cor <- c(.40, .65, .60, .45)
r2 <- c(.25, .41, .43, .39)
group <- c(1, 1, 2, 0)
meta.sub.semipart(.05, n, cor, r2, group)
# Should return:
# Estimate SE LL UL
# Set A: 0.525 0.05955276 0.3986844 0.6317669
# Set B: 0.600 0.07931155 0.4221127 0.7333949
# Set A - Set B: -0.075 0.09918091 -0.2587113 0.1324682
Run the code above in your browser using DataLab