data(testdata)
+# dontrun since Examples with CPU time larger 2.5 times elapsed time, because
+# of using data.table and multicore computation.
+if (FALSE) {
m <- microaggregation(
obj = testdata[1:100, c("expend", "income", "savings")],
method = "mdav",
aggr = 4
)
summary(m)
-#> $meansx
-#> expend income savings
-#> Min. : 1106874 Min. : 2897 Min. : 11751
-#> 1st Qu.:25977689 1st Qu.:27750000 1st Qu.:2620342
-#> Median :45716872 Median :44850000 Median :4771488
-#> Mean :48440371 Mean :49180278 Mean :4798498
-#> 3rd Qu.:69426340 3rd Qu.:70650000 3rd Qu.:6940269
-#> Max. :98685205 Max. :99600000 Max. :9984098
-#>
-#> $meansxm
-#> expend income savings
-#> Min. :14471827 Min. : 4482460 Min. : 872137
-#> 1st Qu.:22752145 1st Qu.:24675000 1st Qu.:2353262
-#> Median :42916487 Median :46850000 Median :5116959
-#> Mean :48440371 Mean :49180278 Mean :4798498
-#> 3rd Qu.:71888065 3rd Qu.:65000000 3rd Qu.:7020042
-#> Max. :91918606 Max. :93725000 Max. :9407783
-#>
-#> $amean
-#> [1] 0
-#>
-#> $amedian
-#> [1] 0.1782512
-#>
-#> $aonestep
-#> [1] 0
-#>
-#> $devvar
-#> [1] 0.3747106
-#>
-#> $amad
-#> [1] 0.5343033
-#>
-#> $acov
-#> [1] 0.1873553
-#>
-#> $arcov
-#> [1] NA
-#>
-#> $acor
-#> [1] 0.25935
-#>
-#> $arcor
-#> [1] NA
-#>
-#> $acors
-#> [1] 0.6424174
-#>
-#> $adlm
-#> [1] 0.1699611
-#>
-#> $adlts
-#> [1] NA
-#>
-#> $apcaload
-#> [1] 0.6853318
-#>
-#> $apppcaload
-#> [1] 2.27684
-#>
-#> $totalsOrig
-#> expend income savings
-#> 4844037117 4918027777 479849813
-#>
-#> $totalsMicro
-#> numeric(0)
-#>
-#> $atotals
-#> [1] 0
-#>
-#> $pmtotals
-#> [1] 0
-#>
-#> $util1
-#> [1] 53.39995
-#>
-#> $deigenvalues
-#> [1] 0.0596172
-#>
-#> $risk0
-#> [1] 0
-#>
-#> $risk1
-#> [1] 0.32
-#>
-#> $risk2
-#> [1] 0
-#>
-#> $wrisk1
-#> [1] 0.9830069
-#>
-#> $wrisk2
-#> [1] 0
-#>
## for objects of class sdcMicro:
## no stratification because `@strataVar` is `NULL`
@@ -365,6 +274,7 @@ Examples
obj = sdc,
variables = "savings"
)
+}
