tests/simpleTestWinsorize.R

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)
eddelbuettel/winsorize documentation built on Sept. 3, 2018, 6:27 p.m.