# load micro data
sp <- searchpaths()
fn <- paste(sp[grep("sdcTable", sp)], "/data/microData1.RData", sep="")
microData <- get(load(fn))
# load problem (as it was created in the example in \code{\link{makeProblem}})
fn <- paste(sp[grep("sdcTable", sp)], "/data/problem.RData", sep="")
problem <- get(load(fn))
# we have a look at the table
print(table(microData))
# cell with region=='A' and gender=='female' has 2 units contributing to it
# this cell should be considered senstive!
problem <- primarySuppression(problem, type='freq', maxN=3)
# looking at anonymization states
print(table(getInfo(problem, type='sdcStatus')))
# we see that exactly one cell is primary suppressed (sdcStatus=='u') and
# the remaining cells are possible candidates for secondary suppression ('s')Run the code above in your browser using DataLab