Fixing all the Critical Points of datacleaner package for Quantargo training session.

DESCRIPTION

@@ -11,6 +11,5 @@ Encoding: UTF-8
 LazyData: true
 Suggests: 
     testthat,
-    covr,
     rmarkdown
 RoxygenNote: 6.1.1

NAMESPACE

@@ -1 +1,2 @@
 exportPattern("^[[:alpha:]]+")
+importFrom("stats", "quantile")

R/meanimpute.R

@@ -1,4 +1,8 @@
 #' Meanimputation
+#' 
+#' Removes NA-s with the mean value for the vector \code{x}
+#' 
+#' @param x A numeric vector
 #' @export
 meanimpute <- function(x) {
   x[is.na(x)] <- mean(x, na.rm = TRUE)

R/transform_log.R

@@ -0,0 +1,14 @@
+#' Log Transform
+#'  
+#' Transform numerical values into their log values.
+#' @param x A numeric vector.
+#' @return The log values of \code{x}.
+#' @examples
+#' transform_log(exp(rnorm(7)))
+#' @export
+
+transform_log<- function( x )
+{
+  if( !is.numeric(x)) stop('Non numeric values found in passed paramenter.')
+  log(x )
+}

R/windsorize.R

@@ -1,10 +1,20 @@
 #' Windsorize
 #'
-#' Do some windsorization.
+#' Replacing values of vector \code{x} greater or smaller then \code{q} quantile values.
+#' 
+#' @param x A numerical vector.
+#' @param p Quantile value for outliers removal.
+#' 
+#' @examples  
+#' windsorize(c(1,499,500,501))
 #' @export
+#' 
 windsorize <- function(x, p = .90) {
-  q <- quantile(x, p)
-  x[x >= q] <- q
+  if(length(x) == 0) stop('Empty vector passed as an argument.')
+  if( sum(is.na(x)) == length(x) )  stop('A vector of NA-s passed as an argument')
+  q <- quantile(x, probs = c(1-p,p), na.rm = TRUE)
+  x[x >= q[2] ] <- q[2]
+  x[x <= q[1] ] <- q[1]
   x
 }