R butcher axe-earth 砍伐地球物体。

# S3 method for earth
axe_call(x, verbose = FALSE, ...)

# S3 method for earth
axe_data(x, verbose = FALSE, ...)

# S3 method for earth
axe_fitted(x, verbose = FALSE, ...)

# Load libraries
library(parsnip)

# Create model and fit
earth_fit <- mars(mode = "regression") %>%
  set_engine("earth") %>%
  fit(Volume ~ ., data = trees)
#> Loading required package: Formula
#> Loading required package: plotmo
#> Loading required package: plotrix
#> Loading required package: TeachingDemos
#> 
#> Attaching package: ‘TeachingDemos’
#> The following object is masked from ‘package:klaR’:
#> 
#>     triplot

out <- butcher(earth_fit, verbose = TRUE)
#> ✖ The butchered object is 2.02 kB larger than the original. Do not butcher.

# Another earth model object
suppressWarnings(suppressMessages(library(earth)))
earth_mod <- earth(Volume ~ ., data = trees)
out <- butcher(earth_mod, verbose = TRUE)
#> ✖ The butchered object is 712 B larger than the original. Do not butcher.