library(LRTesteR)
# Null is true. 48 failures before 52 successes.
negative_binomial_p_one_sample(48, 52, .50, "two.sided")
# Null is false. 25 failures before 75 successes.
negative_binomial_p_one_sample(25, 75, .50, "two.sided")
Run the code above in your browser using DataLab