R/mdmb_squeeze.R

Defines functions mdmb_squeeze

## File Name: mdmb_squeeze.R
## File Version: 0.01

mdmb_squeeze <- function(x, lower, upper)
{
    x <- ifelse( x<lower, lower, x)
    x <- ifelse( x>upper, upper, x)
    return(x)
}

Try the mdmb package in your browser

Any scripts or data that you put into this service are public.

mdmb documentation built on March 7, 2023, 6:58 p.m.