# Here is an R script to calculate the p-value for Q1 (about Pier 25).
#
# Warning!! change values for YOUR project!
#
# exact binomial test for Ha: p < expected_p
n = 20
x = 17
p = .60; #expected_p
"sample fraction"; x/n;
"pvalue"; sum(dbinom(x:n, n, p));
# End of R Script