Nothing
print.CV_Result <- function(x,...){
cat("\nContaining the cross validation result. \n");
if (!is.null(x$s_optimal))
cat(paste0("Selected r parameter is:", x$r_optimal, "\n"));
if (!is.null(x$s_optimal))
cat(paste0("Selected s parameter is:", x$s_optimal, "\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.