Function windsorize() ignores outliers with low values

[MarkoBarzic]

Function windsorize() returns vector that has had only higher outliers windsorized, while the lower outliers remains as they are.
For example, if we have vector
x<- (-20, 1, 2, 3, 4, 5, 6, 7, 8, 9, 20)
windsorize(x) will return
-20, 1, 2, 3, 4, 5, 6, 7, 8, 9, 9.
It should return the following:
-9.5, 1, 2, 3, 4, 5, 6, 7, 8, 9, 14.5