support
"plot"(x, n.var = min(30, length(x$support)), main = deparse(substitute(x)), bg = "gold", lcolor = "blue", ...)
rknnSupport
plot