# numbers between 1 and 10
x <- 1:10
# two outliers
x <- c(x, 30, 100)
# winsorise
l_win <- winsorise(x, skew_thresh = 2, kurt_thresh = 3.5)
# see treated vector, number of winsorised points and details
l_win
Run the code above in your browser using DataLab