inst/extdata/wrappers_clustering/cytometree.R

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

wrapper.clustering.cytometree <- WrapTool(
  name = 'cytometree',
  type = 'clustering',
  r_packages = c('cytometree'),
  fun.build_model =
    function(input, n_clusters, minleaf = 1, t = 0.1, force_first_markers = NULL)
      cytometree::CytomeTree(input, minleaf = minleaf, t = t, force_first_markers = force_first_markers),
  fun.extract = function(model)
    model$labels
)