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.mean.bs(.05, m, sd, n, v)
# Should return:
# Estimate SE t df
# Equal Variances Assumed: -5.35 1.300136 -4.114955 36.00000
# Equal Variances Not Assumed: -5.35 1.300136 -4.114955 33.52169
# p LL UL
# Equal Variances Assumed: 0.0002152581 -7.986797 -2.713203
# Equal Variances Not Assumed: 0.0002372436 -7.993583 -2.706417
Run the code above in your browser using DataLab