# NOT RUN {
library(parsnip)
set.seed(9952)
bag_tree(tree_depth = 5) %>%
set_mode("classification") %>%
set_engine("rpart", times = 3) %>%
fit(Species ~ ., data = iris)
model <- bag_tree(cost_complexity = 0.001, min_n = 3)
model
update(model, cost_complexity = 0.1)
update(model, cost_complexity = 0.1, fresh = TRUE)
# }
Run the code above in your browser using DataLab