# 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