https://github.com/cran/caret
Tip revision: 271c4eb44153a88cd7564d00fd4f35bd1c4a3421 authored by Max Kuhn on 20 November 2018, 09:10:14 UTC
version 6.0-81
version 6.0-81
Tip revision: 271c4eb
print.varImp.train.R
#' @method print varImp.train
#' @export
"print.varImp.train" <-
function(x, top = min(20, dim(x$importance)[1]), digits = max(3, getOption("digits") - 3), ...)
{
cat(x$model, "variable importance\n\n")
printObj <- sortImp(x, top)
if(dim(x$importance)[2] > 2)
cat(" variables are sorted by maximum importance across the classes\n")
if(top < dim(x$importance)[1])
cat(" only ", top, " most important variables shown (out of ", dim(x$importance)[1], ")\n\n", sep = "")
if(dim(printObj)[2] == 2)
{
printObj <- printObj[,1,drop = FALSE]
names(printObj) <- "Importance"
}
print(printObj, digits = digits, ...)
invisible(x)
}