R/density_und.R

density_und <- function(CIJ) {
  N <- nrow(CIJ)
  tri <- as.matrix(tril(CIJ))
  K <- sum(tri!=0)
  kden <- K/((N^2-N)/2)
  return(kden)
}
jyfeather/BCTR documentation built on May 20, 2019, 6:27 a.m.