remove dependencies (dplyr, matrixStats)

part of #28

DESCRIPTION

@@ -15,7 +15,7 @@ Description: Calculate point estimates and their standard errors in complex hous
 Encoding: UTF-8
 LazyData: true
 License: GPL (>= 2)
-Imports: Rcpp (>= 0.12.12),data.table,matrixStats, ggplot2, laeken, methods, dplyr
+Imports: Rcpp (>= 0.12.12),data.table,ggplot2,laeken,methods
 LinkingTo: Rcpp
 URL: https://github.com/statistikat/surveysd
 BugReports: https://github.com/statistikat/surveysd/issues

NAMESPACE

@@ -24,7 +24,6 @@ import(data.table)
 import(ggplot2)
 importFrom("graphics","plot")
 importFrom("laeken","weightedMedian")
-importFrom("matrixStats","rowProds")
 importFrom("methods","formalArgs")
 importFrom("stats","as.formula")
 importFrom("stats","formula")
@@ -36,5 +35,4 @@ importFrom("utils","data")
 importFrom("utils","find")
 importFrom("utils","head")
 importFrom("utils","tail")
-importFrom(dplyr,recode)
 useDynLib(surveysd)

R/demo.eusilc.R

@@ -28,7 +28,6 @@
 #' * `povertyRisk`. Logical variable determining whether a respondent is at risk
 #'   of poverty
 #'
-#' @importFrom dplyr recode
 #' @examples
 #' demo.eusilc(n = 1, prettyNames = TRUE)[, c(1:8, 26, 28:30)]
 #' @export
@@ -71,9 +70,10 @@ demo.eusilc <- function(n = 8, prettyNames = FALSE) {
     data.table::setnames(eusilc, "rb090", "gender")
     data.table::setnames(eusilc, "pb220a", "citizenship")
     data.table::setnames(eusilc, "pl030", "ecoStat")
-    eusilc[, ecoStat := dplyr::recode(
-      ecoStat, `1` = "full time", `2` = "part time", `3` = "unemployed",
-      `4` = "education", `5` = "retired", `6` = "disabled", `7` = "domestic")]
+    eusilc[, ecoStat := factor(ecoStat, labels = c(
+      "full time", "part time", "unemployed",
+      "education", "retired", "disabled", "domestic"
+    ))]
     data.table::setnames(eusilc, "rb050", "pWeight")
     data.table::setnames(eusilc, "povmd60", "povertyRisk")
     eusilc[, povertyRisk := as.logical(povertyRisk)]

R/helpers.R

@@ -6,12 +6,18 @@
 #' @importFrom "graphics" "plot"
 #' @importFrom "stats" "as.formula" "na.omit" "quantile" "sd" "xtabs" "formula"
 #' @importFrom "utils" "data" "find" "tail" "head"
-#' @importFrom "matrixStats" "rowProds"
 #' @importFrom "laeken" "weightedMedian"
 #' @importFrom "methods" "formalArgs"
 #' @useDynLib surveysd
 
-
+rowProds <- function(x) {
+  n <- nrow(x)
+  y <- double(length = n)
+  for (ii in seq_len(n)) {
+    y[ii] <- prod(x[ii, , drop = TRUE], na.rm = na.rm)
+  }
+  y
+}
 
 
 dt.eval <- function(..., env = parent.frame()) {