Nothing
print.ldknn.run <-
function(x,...){
cat("Data:\n")
print(summary(x$data))
cat("\nReference Level: ")
cat(x$reference.level)
cat("\n\nOdds:\n")
print(rbind(x$odds))
}
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.