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/ANTsR documentation built on Oct. 11, 2020, 8:14 a.m.