# NOT RUN {
# }
# NOT RUN {
#load(url("http://topepo.github.io/caret/exampleModels.RData"))
resamps <- resamples(list(CART = rpartFit,
CondInfTree = ctreeFit,
MARS = earthFit))
resampPCA <- prcomp(resamps)
resampPCA
plot(resampPCA, what = "scree")
plot(resampPCA, what = "components")
plot(resampPCA, what = "components", dims = 2, auto.key = list(columns = 3))
clustered <- cluster(resamps)
plot(clustered)
# }
Run the code above in your browser using DataLab