R/connectivityFromExpr_rel.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

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

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

  con

}