if (FALSE) {
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)
}
Run the code above in your browser using DataLab