R/AFcorMI.R

In milescsmith/WGCNA: Weighted Correlation Network Analysis

# read in prediction fx. It was named version C, now renamed because we'll only use this fx later.

AFcorMI <- function(r, m) {
  D <- 0.43 * m^(-0.3)
  epsilon <- D^2.2
  out <- log(1 + epsilon - r^2) / log(epsilon) * (1 - D) + D
  out
}