q <- c(.5, .5, -.5, -.5)
size.ci.lc.stdmean.ws(.05, 1, .7, .6, q)
# Should return:
# Sample size
# Unweighted standardizer: 26
# Single level standardizer: 35
Run the code above in your browser using DataLab