library(LRTesteR)
# Null is true. 52 successes. 100 trials
binomial_p_one_sample(52, 100, .50, "two.sided")
# Null is false. 75 successes. 100 trials
binomial_p_one_sample(75, 100, .50, "two.sided")
Run the code above in your browser using DataLab