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