R/k_means_stats.R

In tidyclust: A Common API to Clustering

#' K-means via stats
#'
#' [k_means()] creates K-means model. This engine uses the classical definition
#' of a K-means model, which only takes numeric predictors.
#'
#' @includeRmd man/rmd/k_means_stats.md details
#'
#' @name details_k_means_stats
#' @keywords internal
NULL

# See inst/README-DOCS.md for a description of how these files are processed

# @export - onLoad
axe_data.kmeans <- function(x, verbose = FALSE, ...) {
  attr(x, "training_data") <- NULL
  add_butcher_class(x)
}

# @export - onLoad
axe_fitted.kmeans <- function(x, verbose = FALSE, ...) {
  x$cluster <- integer(0)
  add_butcher_class(x)
}