R/trunVec.R

In twolodzko/twextras: twextras

#' Truncate a vector to a given range
#' 
#' Truncate a vector so it fitts the range min <= x <= max.
#' 
#' @param x a vector
#' @param min minimum value
#' @param max maximum value
#' 
#' @examples
#' trun(1:10, 3, 7)
#' 
#' @export

trunVec <- function(x, min = min(x), max = max(x)) {
   if (!missing(min)) x[x<min] <- min
   if (!missing(max)) x[x>max] <- max
   return(x)
}