Nothing
getTrainPerf <- function(x)
{
bestPerf <- x$bestTune
colnames(bestPerf) <- gsub("^\\.", "", colnames(bestPerf))
out <- merge(x$results, bestPerf)
out <- out[, colnames(out) %in% x$perfNames]
colnames(out) <- paste("Train", colnames(out), sep = "")
out$method <- x$method
out
}
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.