R/rm_squeeze.R

Defines functions rm_squeeze

## 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)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.