R/make_ranges.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Return ranges with given width from numbers
#'
#' @param values singular values
#' @param width width of ranges
#'
#' @return
#' @export
#'
#'
make.ranges <- function(values, width = 3) {

  add <- (width - 1) / 2

  ranges <- c()

  for(i in 1:length(values)) {
    ranges <- c(ranges, (values[i] - add):(values[i] + add))
  }

  unique(ranges)

}