Update microaggregation.R

bug in rmd method solved