v <- c(.5, .5, -.5, -.5)
size.ci.lc.stdmean.bs(.05, 1, .6, v)
# Should return:
# Sample size per group
# Unweighted standardizer: 49
# Single group standardizer: 65
Run the code above in your browser using DataLab