powered by
threshold(x, lim = c(-Inf, Inf), amount = 0)
x
jitter
x <- rnorm(1000, 0, 3) y <- threshold(x, c(-5,5)) range(y)
Run the code above in your browser using DataLab