R/nmfOut.R

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

#' NMF function for TOAST
#'
#' The function runs NMF on an expression matrix with rank K
#'
#' @param Y matrix, numeric expression matrix
#' @param K integer, number of cell-types or rank of factorization
#'
#' @return coefficient matrix from NMF
#'
#' @import NMF
#'
#' @export
nmfOut <- function(Y,
                   K){

    require(NMF)
    outY = nmf(Y,rank = K)
    return(t(coef(outY)))

}