R/utils.R

Defines functions find_n_r

find_n_r <- function(counts) {
  tmp <- rle(sort(unname(counts)))
  r <- tmp$values
  n_r <- tmp$lengths
  names(n_r) <- r
  n_r
}
c7rishi/variantprobs documentation built on June 23, 2020, 7:42 a.m.