Small aritificial toy data set.
The format is: num [1:13, 1:5] 5 7 2 1 7 8 12 3 15 4 ... - attr(*, "dimnames")=List of 2 ..$ : chr [1:13] "10000" "11000" "12000" "12100" ... ..$ : chr [1:5] "one" "two" "three" "four" ...
data(microData)
microData <- as.data.frame(microData)
m1 <- microaggregation(microData, method="mdav")
summary(m1)
#> $meansx
#> one two three four five
#> Min. : 1.000 Min. : 3.00 Min. :21 Min. :50.00 Min. : 90.0
#> 1st Qu.: 4.000 1st Qu.:11.00 1st Qu.:49 1st Qu.:52.00 1st Qu.:111.0
#> Median : 7.000 Median :14.00 Median :65 Median :57.00 Median :133.0
#> Mean : 6.538 Mean :14.92 Mean :61 Mean :55.92 Mean :134.8
#> 3rd Qu.: 8.000 3rd Qu.:19.00 3rd Qu.:73 3rd Qu.:60.00 3rd Qu.:155.0
#> Max. :15.000 Max. :29.00 Max. :99 Max. :61.00 Max. :188.0
#>
#> $meansxm
#> one two three four
#> Min. :4.000 Min. : 8.667 Min. :30.67 Min. :51.67
#> 1st Qu.:4.000 1st Qu.:13.333 1st Qu.:52.33 1st Qu.:54.75
#> Median :4.333 Median :15.000 Median :69.67 Median :54.75
#> Mean :6.538 Mean :14.923 Mean :61.00 Mean :55.92
#> 3rd Qu.:9.000 3rd Qu.:15.000 3rd Qu.:83.75 3rd Qu.:58.00
#> Max. :9.667 Max. :22.667 Max. :83.75 Max. :59.67
#> five
#> Min. :103.7
#> 1st Qu.:118.7
#> Median :152.2
#> Mean :134.8
#> 3rd Qu.:152.2
#> Max. :158.7
#>
#> $amean
#> [1] 0
#>
#> $amedian
#> [1] 0.7083864
#>
#> $aonestep
#> [1] 0.3452408
#>
#> $devvar
#> [1] 1.591051
#>
#> $amad
#> [1] 2.213889
#>
#> $acov
#> [1] 0.7955257
#>
#> $arcov
#> [1] NA
#>
#> $acor
#> [1] 1.686831
#>
#> $arcor
#> [1] NA
#>
#> $acors
#> [1] 2.374987
#>
#> $adlm
#> [1] 5.191309
#>
#> $adlts
#> [1] NA
#>
#> $apcaload
#> [1] 8.456233
#>
#> $apppcaload
#> [1] 6.203188
#>
#> $totalsOrig
#> one two three four five
#> 85 194 793 727 1752
#>
#> $totalsMicro
#> numeric(0)
#>
#> $atotals
#> [1] 0
#>
#> $pmtotals
#> [1] 0
#>
#> $util1
#> [1] 22.84007
#>
#> $deigenvalues
#> [1] 3.11481
#>
#> $risk0
#> [1] 0
#>
#> $risk1
#> [1] 0.4615385
#>
#> $risk2
#> [1] 0
#>
#> $wrisk1
#> [1] 1.114011
#>
#> $wrisk2
#> [1] 0
#>