Nothing
print.confScore <- function(x,...){
print(x$splitMethod)
cat("\n")
avscore <- do.call("rbind",lapply(x$models,function(x){
mean(x$score)
}))
colnames(avscore) <- "MeanConfScore"
print(avscore)
}
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.