R/overall.importance.plot.R

In gradientForest: Random Forest functions for the Census of Marine Life synthesis project.

`overall.importance.plot` <-
function (obj, ..., las = 1, cex.axis = 0.7, cex.names = cex.axis, horiz = TRUE)
{
    imp.a <- importance(obj,"Accuracy")
    imp.w <- importance(obj,"Weighted")
    o.a <- order(imp.a)
    o.w <- order(imp.w)
    barplot(imp.a[o.a], names = names(imp.a[o.a]),
        horiz = horiz, main = "Accuracy importance",
        las = las, cex.axis = cex.axis, cex.names = cex.names, ...)
    barplot(imp.w[o.w], names = names(imp.w[o.w]),
        horiz = horiz, las = 1, main = expression(paste(R^2, " weighted importance")),
        las = las, cex.axis = cex.axis, cex.names = cex.names, ...)
}