Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.