R/extractDenseNetwork.R

Defines functions .extractDenseNetwork

# extractDenseNetwork.R

.extractDenseNetwork <- function(n1, density) {
  thresh <- sort(n1[upper.tri(n1)], decreasing = TRUE)[density]
  return(n1 >= thresh)
} 
neuroconductor-releases/ANTsR documentation built on Nov. 14, 2020, 11:51 p.m.