# NOT RUN {
# load primary suppressed data (as created in the example
# of \code{\link{primarySuppression}})
sp <- searchpaths()
fn <- paste(sp[grep("sdcTable", sp)], "/data/problemWithSupps.RData", sep="")
problem <- get(load(fn))
# we want to mark the cell region='D' and gender='male' primary sensitive
characteristics <- c('D', 'male')
varNames <- c('region', 'gender')
verbose <- TRUE
rule <- 'u'
# looking at the distribution of anonymization states before...
print(table(getInfo(problem, 'sdcStatus')))
# setting the specific cell as primary sensitive
problem <- changeCellStatus(problem, characteristics, varNames, rule, verbose)
# having a second look at the anonymization states
print(table(getInfo(problem, 'sdcStatus')))
# }
Run the code above in your browser using DataLab