R/similarity.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Similarity from correlation
#'
#' @param data correlation matrix
#' @param method similarity function
#'
#' @return
#' @export
#'
#'
similarity <- function(data, method = "not") {

  if(method == "not") {
    data
  }

  else if(method == "shift") {
    (data + 1) / 2
  }

  else if(method == "abs") {
    abs(data)
  }

}