powered by
winsorize(x, q = 0.006)
x
q
1-q
x <- sample(c(1:10, rep(NA, 10), 21:30)) winsorize(x, 0.2)
Run the code above in your browser using DataLab