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)
}
 
RGLab/MIMOSA documentation built on Nov. 13, 2020, 5:04 a.m.