Nothing
dotPlot <- function (x, top = min(20, dim(x$importance)[1]), ...)
{
varSubset <- sortImp(x, top)
plotObj <- stack(varSubset)
if(dim(varSubset)[2] == 1)
{
plotObj <- varSubset
names(plotObj) <- "values"
plotObj$ind <- "Overall"
} else plotObj <- stack(varSubset)
plotObj$Var <- rep(rownames(varSubset), dim(varSubset)[2])
plotObj$Var <- factor(plotObj$Var, levels = rev(rownames(varSubset)))
if(dim(varSubset)[2] < 3)
{
if(dim(varSubset)[2] > 1) plotObj <- plotObj[plotObj$ind == levels(plotObj$ind)[1],]
out <- dotplot(
Var ~ values,
data = plotObj,
as.table = TRUE,
xlab = "Importance",
...)
} else {
out <- dotplot(
Var ~ values,
data = plotObj,
groups = plotObj$ind,
auto.key = list(columns = min(3, length(levels(plotObj$ind)))),
as.table = TRUE,
xlab = "Importance",
...)
}
out
}
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.