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