bt <- function(a, b, p = 0.5) {binom.test(a, b+a, 0.5, alternative=
c("two.sided"), conf.level = 0.95)$p.value}

counts$pVal <- mapply(bt, counts$small, counts$Sum)