cubist.md
In rules: Model Wrappers for Rule-Based Models

check_args() works

Code
  spec <- set_mode(set_engine(cubist_rules(committees = c(1, 2, 3)), "Cubist"),
  "regression")
  fit(spec, ridership ~ ., data = chi_data$chi_mod)
Condition
  Error in `fit()`:
  ! `committees` must be a whole number or `NULL`, not a double vector.

Code
  spec <- set_mode(set_engine(cubist_rules(committees = 0), "Cubist"),
  "regression")
  res <- fit(spec, ridership ~ ., data = chi_data$chi_mod)
Condition
  Warning:
  The number of committees should be `>= 1` and `<= 100`.
  Truncating to 1.

Code
  spec <- set_mode(set_engine(cubist_rules(committees = 1000), "Cubist"),
  "regression")
  res <- fit(spec, ridership ~ ., data = chi_data$chi_mod)
Condition
  Warning:
  The number of committees should be `>= 1` and `<= 100`.
  Truncating to 100.

Code
  spec <- set_mode(set_engine(cubist_rules(neighbors = c(1, 2, 3)), "Cubist"),
  "regression")
  fit(spec, ridership ~ ., data = chi_data$chi_mod)
Condition
  Error in `fit()`:
  ! `neighbors` must be a whole number or `NULL`, not a double vector.

Code
  spec <- set_mode(set_engine(cubist_rules(neighbors = -1), "Cubist"),
  "regression")
  res <- fit(spec, ridership ~ ., data = chi_data$chi_mod)
Condition
  Warning:
  The number of neighbors should be `>= 0` and `<= 9`.
  Truncating to 0.

Code
  spec <- set_mode(set_engine(cubist_rules(neighbors = 1000), "Cubist"),
  "regression")
  res <- fit(spec, ridership ~ ., data = chi_data$chi_mod)
Condition
  Warning:
  The number of neighbors should be `>= 0` and `<= 9`.
  Truncating to 9.