R/meanAbsCor.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

Defines functions meanAbsCor

Documented in meanAbsCor

#' Returns mean absolute correlation coefficient
#'
#' @param data symmetric correlation matrix
#'
#' @return
#' @export
#'
#'
meanAbsCor <- function(data) {

  mean(abs(data[lower.tri(data)]))

}