#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.