R/prbf01.R

Defines functions prbf01

prbf01 <- function(n,y,target){
  p <- exp(lbeta(y+2,n-y+1)-lbeta(1+y,n-y+1))
  dbinom(y,n,prob=target)*exp(1)/dbinom(y,n,prob=p)
}

Try the PoPdesign package in your browser

Any scripts or data that you put into this service are public.

PoPdesign documentation built on June 30, 2024, 9:06 a.m.