clamp <- function(x, a, b) { x[x < a] <- a x[x > b] <- b x }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.