R/expandTarget.R

In bhattacharya-a-bt/DeCompress: Tissue compartment deconvolution for targeted RNA panels

#' Expand targetted panel to larger feature space
#'
#' The function multiplies the targetted panel with the compression
#' matrix for the larger feature space
#'
#' @param target matrix, numeric expression matrix from targetted panel
#' @param compression_mat matrix, compression matrix
#'
#' @return expanded expression matrix
#'
#' @export
expandTarget <- function(target,
                         compression_mat){

    if (class(target) != 'matrix'){
        stop("matrix not supplied in target")
    }

    if (class(compression_mat) != 'matrix'){
        stop("matrix not supplied in compression_mat")
    }

    if (nrow(compression_mat) == nrow(target)){
        return(t(compression_mat) %*% target)
    } else {return(compression_mat %*% target)}

}