R/seq_range.R

In leeper/prediction: Tidy, Type-Safe 'prediction()' Methods

#' @title Create a sequence over the range of a vector
#' @description Define a sequence of evenly spaced values from the minimum to the maximum of a vector
#' @param x A numeric vector
#' @param n An integer specifying the length of sequence (i.e., number of points across the range of \code{x})
#' @return A vector of length \code{n}.
#' @examples
#' identical(range(1:5), seq_range(1:5, n = 2))
#' seq_range(1:5, n = 3)
#' 
#' @seealso \code{\link{mean_or_mode}}, \code{\link{build_datalist}}
#' @export
seq_range <- function(x, n = 2) {
    seq(min(x, na.rm = TRUE), 
        max(x, na.rm = TRUE), 
        length.out = n)
}