rcpp new

sdcTools · Jan 18, 2024 · d0b800a · d0b800a
1 parent fa855ce
commit d0b800a
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 4 deletions.
diff --git a/R/microaggregation.R b/R/microaggregation.R
@@ -119,6 +119,9 @@
 #' @export
 #' @examples
 #' data(testdata)
+#' # dontrun since Examples with CPU time larger 2.5 times elapsed time, because
+#' # of using data.table and multicore computation.
+#' \dontrun{
 #' m <- microaggregation(
 #'   obj = testdata[1:100, c("expend", "income", "savings")],
 #'   method = "mdav",
@@ -146,6 +149,7 @@
 #'   obj = sdc,
 #'   variables = "savings"
 #' )
+#' }
 microaggregation <- function(obj, variables=NULL, aggr=3, strata_variables=NULL,
   method="mdav", weights=NULL, nc=8, clustermethod="clara",
   measure="mean", trim=0, varsort=1, transf="log") {

diff --git a/man/microaggregation.Rd b/man/microaggregation.Rd
diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp
@@ -229,11 +229,11 @@ END_RCPP
 
 RcppExport SEXP LocalRecProg_cpp(void *, void *, void *, void *, void *, void *, void *, void *, void *);
 RcppExport SEXP Mdav(void *, void *, void *, void *, void *);
-RcppExport SEXP RankSwap(void *, void *, void *, void *, void *, void *, void *, void *, void *);
-RcppExport SEXP Suda2(void *, void *, void *, void *, void *);
 RcppExport SEXP measure_hierachical(void *);
 RcppExport SEXP measure_risk_cpp(void *, void *, void *, void *, void *, void *);
 RcppExport SEXP measure_threshold(void *, void *);
+RcppExport SEXP RankSwap(void *, void *, void *, void *, void *, void *, void *, void *, void *);
+RcppExport SEXP Suda2(void *, void *, void *, void *, void *);
 
 static const R_CallMethodDef CallEntries[] = {
     {"_sdcMicro_cpp_calcSuppInds", (DL_FUNC) &_sdcMicro_cpp_calcSuppInds, 3},
@@ -253,11 +253,11 @@ static const R_CallMethodDef CallEntries[] = {
     {"_sdcMicro_test_comparator", (DL_FUNC) &_sdcMicro_test_comparator, 5},
     {"LocalRecProg_cpp",    (DL_FUNC) &LocalRecProg_cpp,    9},
     {"Mdav",                (DL_FUNC) &Mdav,                5},
-    {"RankSwap",            (DL_FUNC) &RankSwap,            9},
-    {"Suda2",               (DL_FUNC) &Suda2,               5},
     {"measure_hierachical", (DL_FUNC) &measure_hierachical, 1},
     {"measure_risk_cpp",    (DL_FUNC) &measure_risk_cpp,    6},
     {"measure_threshold",   (DL_FUNC) &measure_threshold,   2},
+    {"RankSwap",            (DL_FUNC) &RankSwap,            9},
+    {"Suda2",               (DL_FUNC) &Suda2,               5},
     {NULL, NULL, 0}
 };