Nothing
#' @noRd
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.