dat <- data.frame(x=c(8, 15))
propTest2(dat, vars = 'x', areCounts = TRUE)
#
# Binomial Test
# -------------------------------------------------------
# Level Count Total Proportion p
# -------------------------------------------------------
# x 1 8 23 0.348 0.210
# 2 15 23 0.652 0.210
# -------------------------------------------------------
# Note. Ha is proportion != 0.5
#
Run the code above in your browser using DataLab