## Not run:
#
# library(mlbench)
# data(BostonHousing)
#
# library(rpart)
# rpartFit <- train(medv ~ .,
# data = BostonHousing,
# "rpart",
# tuneLength = 9,
# trControl = trainControl(
# method = "boot",
# returnResamp = "all"))
#
# densityplot(rpartFit,
# adjust = 1.25)
#
# xyplot(rpartFit,
# metric = "Rsquared",
# type = c("p", "a"))
#
# stripplot(rpartFit,
# horizontal = FALSE,
# jitter = TRUE)
#
# ## End(Not run)
Run the code above in your browser using DataLab