inst/examples/R/data/cart/regression/example_prune.R

In sigbertklinke/shinyExample: Create and run simple (interactive) programs as Shiny apps

library("MASS") # for Boston Housing data
library("rpart")
model <-rpart(medv~., data=Boston, cp=0)
plot(model); text(model, cex=0.8)
printcp(model)
plotcp(model)
pmodel1 <- prune(model, cp=0.25)
pmodel1
cp      <- model$cptable[which.min(
             model$cptable[,"xerror"]),"CP"]
pmodel2 <- prune(model, cp=cp)
pmodel2