R/get_gamma.R

In dtangle: Cell Type Deconvolution from Gene Expressions

#' Determine gamma value by data type.
#' @inheritParams dtangle
get_gamma <- function(data_type) {
    
    if (is.null(data_type)) 
        return(1)
    
    if (data_type == "microarray-probe") {
        gamma <- gma$ma_probe
    } else if (data_type == "microarray-gene") {
        gamma <- gma$ma_gene
    } else if (data_type == "rna-seq") {
        gamma <- gma$rna_seq
    }
    return(gamma)
}