n <- c(55, 190, 65, 35)
cor <- c(.40, .65, .60, .45)
group <- c(1, 1, 2, 0)
meta.sub.cor(.05, n, cor, 0, group)
# Should return:
# Estimate SE LL UL
# Set A: 0.525 0.06195298 0.3932082 0.6356531
# Set B: 0.600 0.08128008 0.4171458 0.7361686
# Set A - Set B: -0.075 0.10219894 -0.2645019 0.1387283
Run the code above in your browser using DataLab