#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, "scree")
plot(resampPCA, "components")
plot(resampPCA, "components", dims = 2, auto.key = list(columns = 3))
Run the code above in your browser using DataLab