R/get_feature_selection_optimal_features_omada.R

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

#' Get the optimal features
#'
#' @param object An object of class "clusterAnalysis"
#' @return The list of optimal features
#' @export
#'
#' @examples
#' oa.object <- omada(toy_genes, method.upper.k = 4)
#' get_feature_selection_optimal_features(oa.object)
get_feature_selection_optimal_features <- function(object) {
    UseMethod("get_feature_selection_optimal_features")
}
#' @export
get_feature_selection_optimal_features.clusterAnalysis <-
    function(object) {
        object$feature.selection.optimal.features
    }