powered by
bagging
"prune"(tree, cp=0.01,...)
tree
prune
rpart
prune.rpart
data("Glass", package = "mlbench") library("rpart") mod <- bagging(Type ~ ., data=Glass, nbagg=10, coob=TRUE) pmod <- prune(mod) print(pmod)
Run the code above in your browser using DataLab