R/extractDenseNetwork.R

Defines functions .extractDenseNetwork

# extractDenseNetwork.R

.extractDenseNetwork <- function(n1, density) {
  thresh <- sort(n1[upper.tri(n1)], decreasing = TRUE)[density]
  return(n1 >= thresh)
}
ANTsX/ANTsR documentation built on March 29, 2025, 6:24 p.m.