R/MarginalNULL.R

Defines functions MarginalNULL

MarginalNULL <- function(Ns, ns, Nu, nu, alpha0, beta0) {
    lchoose(Ns + ns, ns) + lchoose(Nu + nu, nu) - lbeta(alpha0, beta0) + lbeta(ns + 
        nu + alpha0, Ns + Nu + beta0)
}
 

Try the MIMOSA package in your browser

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

MIMOSA documentation built on Nov. 12, 2020, 2:02 a.m.