poLCA.reorder <-
function(probs,o.new) {
J <- length(probs)
for (j in 1:J) probs[[j]] <- probs[[j]][o.new,]
return(probs)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.