inst/extdata-scripts/earth.R

# Load libraries
suppressWarnings(suppressMessages(library(parsnip)))

# Create model and fit
earth_fit <- mars(mode = "regression") %>%
  set_engine("earth") %>%
  fit(Volume ~ ., data = trees)
jyuu/butcher documentation built on March 29, 2025, 5:24 a.m.