Running examples in 'sdcMicro-Ex.R' failed
The error most likely occurred in:

> ### Name: sdcMicro-package
> ### Title: Statistical Disclosure Control (SDC) for the generation of
> ###   protected microdata for researchers and for public use.
> ### Aliases: sdcMicro-package sdcMicro
> ### Keywords: package
> 
> ### ** Examples
> 
> 
> ## example from Capobianchi, Polettini and Lucarelli:
> data(francdat)
> f <- freqCalc(francdat, keyVars=c(2,4,5,6),w=8)
> f

 --------------------------
4 obs. violate 2-anonymity 
8 obs. violate 3-anonymity 
 --------------------------
> f$fk
[1] 2 2 2 1 1 1 1 2
> f$Fk
[1] 110.0  84.5  84.5  17.0 541.0   8.0   5.0 110.0
> ## with missings:
> x <- francdat
> x[3,5] <- NA
> x[4,2] <- x[4,4] <- NA
> x[5,6]  <- NA
> x[6,2]  <- NA
> f2 <- freqCalc(x,  keyVars=c(2,4,5,6),w=8)
> f2$Fk
[1] 149.0  84.5 194.5 563.0 566.0 549.0  22.0 149.0
> ## individual risk calculation:
> indivf <- indivRisk(f)
> indivf$rk
[1] 0.01714426 0.02204233 0.02204233 0.17707583 0.01165448 0.29706308 0.40235948
[8] 0.01714426
> ## Local Suppression
> localS <- localSupp(f, keyVar=2, threshold=0.25)
2 observations has individual risks >= 0.25 and were suppressed!
> f2 <- freqCalc(localS$freqCalc, keyVars=c(2,4,5,6), w=8)
> indivf2 <- indivRisk(f2)
> indivf2$rk
[1] 0.01714426 0.02204233 0.02204233 0.17707583 0.01165448 0.29706308 0.40235948
[8] 0.01714426
> 
> ## select another keyVar and run localSupp once again,
> #if you think the table is not fully protected
> data(free1)
> free1 <- as.data.frame(free1)
> f <- freqCalc(free1, keyVars=1:3, w=30)
> ind <- indivRisk(f)
> ## and now you can use the interactive plot for individual risk objects:
> ## plot(ind)
> 
> ## example from Capobianchi, Polettini and Lucarelli:
> data(francdat)
> l1 <- localSuppression(francdat, keyVars=c(2,4,5,6), importance=c(1,3,2,4))
> l1

-----------------------
Total number of suppressions in the key variables: 5 (new: 5)

Number of suppressions by key variables:
(in parenthesis, the total number suppressions is shown)

   Key1  Key2  Key3  Key4
1 1 (1) 1 (1) 0 (0) 3 (3)

2-anonymity == TRUE
-----------------------
> l1$x
  Key1 Key2 Key3 Key4
1    1    2    5    1
2    1    2    1    1
3    1    2    1    1
4    3    3    1   NA
5    4    3    1   NA
6   NA    3    1    1
7    6   NA    1   NA
8    1    2    5    1
> l2 <- localSuppression(francdat, keyVars=c(2,4,5,6), k=2)
> l3 <- localSuppression(francdat, keyVars=c(2,4,5,6), k=4)
> 
> ## Data from mu-Argus:
> ## Global recoding:
> data(free1)
> free1 <- as.data.frame(free1)
> free1[, "AGE"] <- globalRecode(free1[,"AGE"], c(1,9,19,29,39,49,59,69,100), labels=1:8)
> 
> ## Top coding:
> topBotCoding(free1[,"DEBTS"], value=9000, replacement=9100, kind="top")
> 
> ## Numerical Rank Swapping:
> ## do not use the mu-Argus test data set (free1)
> # since the numerical variables are (probably) faked.
> data(Tarragona)
> Tarragona1 <- rankSwap(Tarragona, P=10)
> 
> ## Microaggregation:
> m1 <- microaggregation(Tarragona, method="onedims", aggr=3)
> m2 <- microaggregation(Tarragona, method="pca", aggr=3)
> # summary(m1)
> ## approx. 1 minute computation time
> # valTable(Tarragona, method=c("simple","onedims","pca"))
> 
> 
> data(microData)
> microData <- as.data.frame(microData)
> m1 <- microaggregation(microData, method="mdav")
> x <- m1$x  ### fix me
> 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] 7.493076

$totalsOrig
  one   two three  four  five 
   85   194   793   727  1752 

$totalsMicro
numeric(0)

$atotals
[1] 0

$pmtotals
[1] 0

$util1
[1] 0.3513857

$deigenvalues
[1] 3.11481

$risk0
[1] 0

$risk1
[1] 0.4615385

$risk2
[1] 0

$wrisk1
[1] 0.9314044

$wrisk2
[1] 0

> plotMicro(m1, 1, which.plot=1)  # too less observations...
> data(free1)
> free1 <- as.data.frame(free1)
> plotMicro(microaggregation(free1[,31:34], method="onedims"), 1, which.plot=1)
> 
> 
> ## disclosure risk (interval) and data utility:
> m1 <- microaggregation(Tarragona, method="onedims", aggr=3)
> dRisk(obj=Tarragona, xm=m1$mx)
[1] 0.9208633
> dRisk(obj=Tarragona, xm=m2$mx)
Error in dRiskWORK(x = obj, ...) : 
  'getCharCE' must be called on a CHARSXP
Calls: dRisk -> dRiskX -> dRiskX -> dRiskWORK
Execution halted