#load(url("http://caret.r-forge.r-project.org/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