R/binarize_with_sign.R

In saezlab/COSMOS: COSMOS (Causal Oriented Search of Multi-Omic Space)

#' binarize_with_sign
#'
#' binarizes the data based on the threshold using the absolute value of the data.
#' Gives a sign based on the sign of the input data.
#' @param data numerical vector
#' @param threshold threshold used to binarise the data
#' @noRd
binarize_with_sign <- function(data,threshold){
    
    out = sign(data) * as.numeric(abs(data) >= threshold)
    return(out)
}