Homework

We want to test

\[\begin{align} H_0: P &= \frac{18}{38} \\ H_a: P &> \frac{18}{38} \end{align}\]

And we can use binomial test and then find the p value, as follow

P <- 18/38
x <- 1890
n <- 3800
p.value.bino <- binom.test(x=x, n=n, p = P, 
           alternative = "greater")$p.value
p.value.bino 

## [1] 0.001829548

noquote(paste("The p value for this binomial test is", p.value.bino))

## [1] The p value for this binomial test is 0.00182954809648374