R/hinge.R

In ctlab/LinSeed: Linear Subpsace identification to solve complete gene expression deconvolution problem

#' Hinge function
#'
#' @param Y matrix describing genes (possibly in reduced space)
#'
#' @return matrix -Y with negative values replaced with zeroes
#'
#' @examples
hinge <- function(Y) {
    return(pmax(-Y, 0))
}