Get your own website Result Size: 625 x 565
x
 
# Specify the sample occurences (x), the sample size (n), and the null-hypothesis claim (p)
x <- 10
n <- 40
p <- 0.45
# P-value from left-tail proportion test at 0.01 significance level
prop.test(x, n, p, alternative = c("less"), conf.level = 0.99, correct = FALSE)$p.value
[1] 0.005502077