R/connectivityFromCor.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Returns protein connectivity values from correlation data
#'
#' @param data symmetric correlation matrix
#'
#' @return
#' @export
#'
#'
connectivityFromCor <- function(data) {

  diag(data) <- 0
  con <- apply(data, 2, sum)
  names(con) <- rownames(data)

  con

}