R/cseq.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' A non-standard (complex) sequence generator
#' 
#' @param from A numeric of start of the complex sequence.
#' @param to A numeric of end of the complex sequence.
#' @param by A numeric vector describing the sequence of number that are added to the last element of the complex sequence in the order from left to right.
#' @return A numeric vector of complex sequence.
#' @export


cseq <- function(from, to, by){
  times <- (to-from) %/% sum(by)
  x <- cumsum(c(from, rep(by, times+1)))
  x[x<=to]
}