# NOT RUN {
rule_fit()
# Parameters can be represented by a placeholder:
rule_fit(trees = 7)
# ------------------------------------------------------------------------------
set.seed(6907)
rule_fit_rules <-
rule_fit(trees = 3, penalty = 0.1) %>%
set_mode("classification") %>%
fit(Species ~ ., data = iris)
# ------------------------------------------------------------------------------
model <- rule_fit(trees = 10, min_n = 2)
model
update(model, trees = 1)
update(model, trees = 1, fresh = TRUE)
# }
Run the code above in your browser using DataLab