R/adjacency.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Similaryty to adjacency
#'
#' @param data similarity measure
#' @param method method for adjacency function
#' @param exp exponent for power function
#'
#' @return
#' @export
#'
#'
adjacency <- function(data, method = "power", exp = 1) {

  if(method == "power") {
    data^exp
  }

}