## 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)
#
# ## End(Not run)
Run the code above in your browser using DataLab