# Specify the sample occurences (x), the sample size (n), and the null-hypothesis claim (p) x <- 10 n <- 100 p <- 0.5 # P-value from left-tail proportion test at 0.01 significance level prop.test(x, n, p, alternative = c("two.sided"), conf.level = 0.99, correct = FALSE)$p.value