R/dcora.R

In Rfast2: A Collection of Efficient and Extremely Fast R Functions II

Defines functions dcora

Documented in dcora

#[export]
dcora <- function(x) {
  p <- dim(x)[2]
  a <- matrix(0, p, p)
  for ( i in 1:c(p - 1) ) {
    for ( j in c(i + 1):p ) {
      a[i, j] <- a[j, i] <- Rfast::dcor(x[, i], x[, j])$dcor
    }
  }
  diag(a) <- 1
  a
}

Try the Rfast2 package in your browser