Find stopping boundary via binomial exact tests
findbound(n, alpha_test = 0.025, pH0 = 0.5, alternative = "greater")
number of events in the experimental group that would lead to a stopping
findbound(n=20, alpha_test=0.025, pH0 = 0.5, alternative="greater")
#> [1] 15
findbound(n=20, alpha_test=0.025, pH0 = 0.5, alternative="less")
#> [1] 5