inst/extdata/wrappers_clustering/kmeans.R

In davnovak/SingleBench: Framework for benchmarking and optimising dimension-reduction and clustering pipelines in expression data analysis

wrapper.clustering.kmeans <- WrapTool(
  name = 'kmeans',
  type = 'clustering',
  r_packages = c(),
  fun.build_model =
    function(input, n_clusters)
      stats::kmeans(input, centers = n_clusters),
  fun.extract = function(model)
    model$cluster
)