windsorize() was corrected to do the necessary cheks on its allowed a…

…rguments and to consider the smallest value of the vector. This fixes quantargo#15 & quantargo#16

R/windsorize.R

@@ -3,7 +3,10 @@
 #' Do some windsorization.
 #' @export
 windsorize <- function(x, p = .90) {
-  q <- quantile(x, p)
+  if (length(x) == 0) stop("Not allowed the use of an empty vector!")
+  if (all(is.na(x)))  stop("Not allowed the use of a vector containing only NA!")
+
+  q <- quantile(x, probs=c(1-p,p))
   x[x >= q] <- q
   x
 }