Implemented Features #1 #3 #5 #6

DESCRIPTION

@@ -10,7 +10,7 @@ License: GPL-3
 Encoding: UTF-8
 LazyData: true
 Suggests: 
-    testthat,
+    testthat (>= 2.1.0),
     covr,
     rmarkdown
 RoxygenNote: 6.1.1

NAMESPACE

@@ -1 +1,5 @@
-exportPattern("^[[:alpha:]]+")
+# Generated by roxygen2: do not edit by hand
+
+export(meanimpute)
+export(transform_log)
+export(windsorize)

R/meanimpute.R

@@ -1,4 +1,9 @@
 #' Meanimputation
+#'
+#' @param x A numeric vector containing the data
+#' @return the input vector with its NA values replaced by the mean
+#' @examples
+#' log(1:5)
 #' @export
 meanimpute <- function(x) {
   x[is.na(x)] <- mean(x, na.rm = TRUE)

R/transform_log.R

@@ -0,0 +1,17 @@
+#' Log transforms data.
+#'
+#' @param x A numeric vector containing the data
+#' @return A numeric vector whose entries are the logarithms of the input.
+#' @examples
+#' log(1:5)
+#' @export
+transform_log<-function(x){
+  if(length(x)==0){
+    stop("x must have positive length")
+  }else if(sum(x<=0)>0){
+    stop("x must not contain non-positive values")
+  }else if(sum(is.na(x))>0){
+    stop("x must not contain any NA")
+  } 
+  log(x)
+} 

R/windsorize.R

@@ -1,10 +1,20 @@
-#' Windsorize
+#' Windsorizes data.
 #'
-#' Do some windsorization.
+#' @param x A numeric vector containing the data.
+#' @param p A numeric value denoting the a probability
+#' @return A numeric vector containing the windsorized data, i.e. extreme values are replaced by the quantiles derived from \code{p}.
+#' @examples
+#' windsorize(c(92 , 19 , 101 , 58 , 1053 , 91 , 26 , 78 , 10 , 13 , -40 , 101 , 86 , 85 , 15 , 89 , 89 , 28 , -5 , 41))
 #' @export
 windsorize <- function(x, p = .90) {
-  q <- quantile(x, p)
-  x[x >= q] <- q
+  if(length(x)==0){
+    stop("x must be of positive length")
+  }else if(sum(is.na(x))>0){
+    stop("x must not contain any NA")
+  }
+  q <- quantile(x, 0.5 * ( 1 + p * c(-1,1) ) )
+  x[x >= q[2] ] <- q[2]
+  x[x <= q[1] ] <- q[1] 
   x
 }
 

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(datacleaner)
+
+test_check("datacleaner")

tests/testthat/test-windsorize.R

@@ -0,0 +1,3 @@
+test_that("windsorize works", {
+  expect_equal(windsorize(3:10), c(3.35,4.00,5.00,6.00,7.00,8.00,9.00,9.65))
+})