R/extractDenseNetwork.R

Defines functions .extractDenseNetwork

# extractDenseNetwork.R

.extractDenseNetwork <- function(n1, density) {
  thresh <- sort(n1[upper.tri(n1)], decreasing = TRUE)[density]
  return(n1 >= thresh)
}
stnava/ANTsR documentation built on April 13, 2025, 4:10 a.m.