R/closest.top.R

In Bioconductor/bioDist: Different distance measures

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]])
}