R/closest.top.R

Defines functions closest.top

Documented in closest.top

closest.top <- function(x, dist.mat, top)
{
  dist <- as.matrix(dist.mat)
  vector <- dist[x,colnames(dist) != x]
  return(names(vector)[order(vector)[1:top]])
}
Bioconductor-mirror/bioDist documentation built on June 1, 2017, 5:18 a.m.