size.ci.ancova2(.05, 1.37, 1, 0, 1.5, 1)
# Should return:
# n1 n2
# 21 21
size.ci.ancova2(.05, 1.37, 1, 0, 1.5, 2)
# Should return:
# n1 n2
# 16 32
size.ci.ancova2(.05, 1.37, 1, .75, 1.5, 1)
# Should return:
# n1 n2
# 24 24
Run the code above in your browser using DataLab