n <- c(55, 190, 65, 35)
cor <- c(.40, .65, .60, .45)
group <- c(1, 1, 2, 0)
meta.sub.spear(.05, n, cor, group)
# Should return:
# Estimate SE LL UL
# Set A: 0.525 0.06483629 0.3865928 0.6402793
# Set B: 0.600 0.08829277 0.3992493 0.7458512
# Set A - Set B: -0.075 0.10954158 -0.2760700 0.1564955
Run the code above in your browser using DataLab