library(LRTesteR)
# Null is true.
set.seed(1)
x <- rbinom(3, 50, .5)
n <- rep(50, length(x))
fctr <- factor(1:length(x))
binomial_p_one_way(x, n, fctr, .95)
# Null is false
set.seed(1)
x <- rbinom(3, 50, c(.25, .50, .75))
n <- rep(50, length(x))
fctr <- factor(1:length(x))
binomial_p_one_way(x, n, fctr, .95)
Run the code above in your browser using DataLab