Axing a kproto. — axe-kproto • butcher

Axing a kproto.

Usage

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

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

Arguments

x: A model object.
verbose: Print information each time an axe method is executed. Notes how much memory is released and what functions are disabled. Default is FALSE.
...: Any additional arguments related to axing.

Value

Axed kproto object.

Examples

library(clustMixType)

kproto_fit <- kproto(
  ToothGrowth,
  k = 2,
  lambda = lambdaest(ToothGrowth),
  verbose = FALSE
)
#> Numeric variances:
#>        len       dose 
#> 58.5120226  0.3954802 
#> Average numeric variance: 29.45375 
#> 
#> Heuristic for categorical variables: (method = 1) 
#> supp 
#>  0.5 
#> Average categorical variation: 0.5 
#> 
#> Estimated lambda: 58.9075 
#> 

out <- butcher(kproto_fit, verbose = TRUE)
#> ✔ Memory released: 3.46 kB
#> ✖ Disabled: `validation_kproto()`, `summary()`, and `clprofiles()`