R/seqr.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' Seqr, seq + range
#'
#' @param range c(from, to)
#' @param by
#'
#' @return seq
#' @export
#'
#' @examples
#' MySequence = c(1, 2, 100, 102)
#' s <- seqr(range(MySequence), by = 1)
seqr <- function(range, by) {
  return(seq(range[1], range[2], by = by))
}