PoPdesign.Rcheck/00_pkg_src/PoPdesign/R/prbf01.R

prbf01 <- function(n,y,target){
  p <- beta(y+2,n-y+1)/beta(1+y,n-y+1)
  dbinom(y,n,prob=target)*exp(1)/dbinom(y,n,prob=p)
}
vivid225/PoP documentation built on Sept. 20, 2024, 5:30 a.m.