if (FALSE) {
#load(url("http://topepo.github.io/caret/exampleModels.RData"))
resamps <- resamples(list(CART = rpartFit,
CondInfTree = ctreeFit,
MARS = earthFit))
difs <- diff(resamps)
dotplot(difs)
densityplot(difs,
metric = "RMSE",
auto.key = TRUE,
pch = "|")
bwplot(difs,
metric = "RMSE")
levelplot(difs, what = "differences")
}
Run the code above in your browser using DataLab