binom.test(21, 52, p=0.3, alternative = "greater")

binom.test(24, 85, conf.level = 0.95)


racecounts = c(27,55,467,46)
prob = c(0.128,0.01,0.804,0.058)
chisq.test(racecounts, p = prob)

chickencounts = c(111,37,34,8)
prob = c(9/16,3/16,3/16,1/16)
chisq.test(chickencounts, p=prob)