m <- c(6.94, 7.15, 4.60, 3.68)
sd <- c(2.21, 2.83, 2.29, 1.90)
n <- c(40, 40, 40, 40)
v <- c(.5, .5, -.5, -.5)
ci.lc.stdmean.bs(.05, m, sd, n, v)
# Should return:
# Estimate adj Estimate SE LL UL
# Unweighted standardizer: 1.2459 1.2399 0.17621 0.9005 1.5912
# Weighted standardizer: 1.2459 1.2399 0.17313 0.9065 1.5852
# Group 1 standardizer: 1.3145 1.2890 0.22515 0.8732 1.7558
Run the code above in your browser using DataLab