R/mult.R

"mult" <-
function(n,r,p){
    exp( r*log(p)+(n-r)*log(1-p) 
        - lgamma(r+1) - lgamma(n-r+1) +lgamma(n+2) )
}

Try the MChtest package in your browser

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

MChtest documentation built on May 16, 2019, 5:06 p.m.