R/poLCA.entropy.R

In poLCA: Polytomous Variable Latent Class Analysis

Defines functions poLCA.entropy

Documented in poLCA.entropy

poLCA.entropy <-
function(lc) {
    K.j <- sapply(lc$probs,ncol)
    fullcell <- expand.grid(lapply(K.j,seq,from=1))
    P.c <- poLCA.predcell(lc,fullcell)
    return(-sum(P.c * log(P.c),na.rm=TRUE))
}

Try the poLCA package in your browser