v <- c(1/4, 1/4, 1/4, 1/4, -1)
size.test.lc.mean.bs(.05, .90, 1, .5, v)
# Should return:
# Sample size per group
# 53
v <- c(1, -1, -1, 1)
size.test.lc.mean.bs(.05, .90, 27.5, 5, v)
# Should return:
# Sample size per group
# 47
Run the code above in your browser using DataLab