v <- c(.5, .5, -1)
size.ci.lc.median.bs(.05, 5.62, 2.0, v, 1)
# Should return:
# Sample size per group
# 51
size.ci.lc.median.bs(.05, 5.62, 2.0, v, 4)
# Should return:
# Sample size per group
# 33
Run the code above in your browser using DataLab