R/poLCA.updatePrior.R

Defines functions poLCA.updatePrior

poLCA.updatePrior <-
function(b,x,R) {
    b <- matrix(b,ncol=(R-1))
    exb <- exp(x %*% b)
    p <- cbind(1,exb)/(rowSums(exb)+1)
    return(p)
}
dlinzer/poLCA documentation built on April 7, 2022, 10:19 p.m.