Nothing
summary.fRFE <-
function(object, ...){
if(class(object)!="fRFE")
stop("Wrong class")
cat("\n\n --- \t\t\t\t ---")
cat("\n --- \tSummary functional RFE\t ---")
cat("\n --- \t\t\t\t ---\n\n\n")
if(!is.null(object$nclust) & !is.null(object$K))
cat("\nStability selection using", object$K, "subsamples, parallel execution on", object$nclust, "cores\n\n")
cat("Number of selected variables using a validation set:", object$nselected, "\n\n")
cat("Selected variables:\n")
cat(object$selection, "\n\n")
cat("Validation error for the best model:", round(min(object$error), 4), "\n\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.