R/connectivityFromExpr.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Returns protein connectivity from expression data
#'
#' @param data expression data
#'
#' @return
#' @export
#'
#'
connectivityFromExpr <- function(data) {

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

  con

}