R/get_signature_feature_coefs_omada.R

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

#' Get a list of LASSO (regression analysis) coefficients of each gene
#'
#' @param object An object of class "clusterAnalysis"
#' @return A list of LASSO (regression analysis) coefficients of each gene
#' @export
#'
#' @examples
#' oa.object <- omada(toy_genes, method.upper.k = 4)
#' lasso.coefs <- get_signature_feature_coefs(oa.object)
get_signature_feature_coefs <- function(object) {
    UseMethod("get_signature_feature_coefs")
}
#' @export
get_signature_feature_coefs.clusterAnalysis <- function(object) {
    object$signature.feature.coefs
}