R/m_effective.R

In poolVIM: Gene-Based Association Tests using the Actual Impurity Reduction (AIR) Variable Importance

#'  meff.
#' @param R R
#'
m_effective <- function(R) {

  evs <- eigen(R)$values
    abs.evs <- abs(evs)
  k <- length(evs)
    m <- 1 + (k - 1) * (1 - var(evs) / k)

  m <- floor(m)

  return(m)

}