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 16, 2024, 12:17 a.m.