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 Sept. 8, 2024, 2:45 a.m.