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