Nothing
poLCA.reorder <-
function(probs,o.new) {
J <- length(probs)
for (j in 1:J) probs[[j]] <- probs[[j]][o.new,]
return(probs)
}
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.