binom_test
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)
posted on 2021-04-28 16:13 坐山雕 閱讀(156) 評(píng)論(0) 收藏 舉報(bào)
bt <- function(a, b, p = 0.5) {binom.test(a, b+a, 0.5, alternative=
c("two.sided"), conf.level = 0.95)$p.value}
posted on 2021-04-28 16:13 坐山雕 閱讀(156) 評(píng)論(0) 收藏 舉報(bào)