R/llmult.R
In mda: Mixture and Flexible Discriminant Analysis

llmult <-
function (p, g) 
{
    index <- cbind(seq(along = g), as.numeric(g))
    p <- p[index]
    -2 * sum(log(p[p > .Machine$double.eps]))
}

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

mda documentation built on July 9, 2023, 7:14 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the mda package in your browser