## File Name: btm_trim_increment.R
## File Version: 0.04
btm_trim_increment <- function(incr, maxincr )
{
res <- ifelse( abs(incr) > maxincr, maxincr*sign(incr), incr )
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.