m <- c(33.5, 37.9, 38.0, 44.1)
sd <- c(3.84, 3.84, 3.65, 4.98)
n <- c(10,10,10,10)
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.301263 -1.273964 0.3692800 -2.025039 -0.5774878
# Weighted standardizer: -1.301263 -1.273964 0.3514511 -1.990095 -0.6124317
# Group 1 standardizer: -1.393229 -1.273810 0.4849842 -2.343781 -0.4426775
Run the code above in your browser using DataLab