Nothing
print.summary.blca <-
function(x, ...){
cat("__________________\n")
cat("\nBayes-LCA\n")
cat("Diagnostic Summary\n")
cat("__________________\n")
cat("\nHyper-Parameters: \n")
cat("\n Item Probabilities:\n")
cat("\n alpha: \n")
print(x$sum2$ItemProb$alpha)
cat("\n beta: \n")
print(x$sum2$ItemProb$beta)
cat("\n Class Probabilities:\n")
cat("\n delta: \n")
print(x$sum2$ClassProb)
cat("__________________\n")
cat("\nMethod:",x$method, " \n")
for(ind in 1:length(x$sum1)){
cat("\n", x$printnames[ind], x$sum1[ind], "\n")
}
}
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.