R/top.R

top<-function(x, n=10)
{
  x %in% names(head(sort(table(x), decreasing=TRUE), n))
}
cstubben/genomes2 documentation built on May 14, 2019, 12:25 p.m.