tests/simpleTestWinsorize.R

In eddelbuettel/winsorize: Winsorize Data

library(winsorize)
options(digits=6)

## generate data
set.seed(1234)     # for reproducibility
x <- rnorm(10)     # standard normal
x[1] <- x[1] * 10  # introduce outlier

## winsorize data
x
winsorize(x)