## File Name: rm_squeeze.R
## File Version: 0.03
rm_squeeze <- function(x, lower, upper )
{
x[ x < lower ] <- lower
x[ x > upper ] <- upper
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.