R/get_cluster_voting_k_votes_omada.R

In BioSok/omada: Machine learning tools for automated transcriptome clustering analysis

#' Get k vote frequencies
#'
#' @param object An object of class "clusterAnalysis"
#' @return Matrix with k vote frequencies
#' @export
#'
#' @examples
#' oa.object <- omada(toy_genes, method.upper.k = 4)
#' get_cluster_voting_k_votes(oa.object)
get_cluster_voting_k_votes <- function(object) {
    UseMethod("get_cluster_voting_k_votes")
}
#' @export
get_cluster_voting_k_votes.clusterAnalysis <- function(object) {
    object$cluster.voting.k.votes
}