# 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))
# which is the overall total?
index.tot <- which.max(getInfo(problem, 'freq')
index.tot
# the anonymization state of the total is
print(getInfo(problem, type='sdcStatus')[index.tot])
# we want this cell to never be suppressed
problem <- setInfo(problem, type='sdcStatus', index=index.tot, input='z')
print(getInfo(problem, type='sdcStatus')[index.tot])Run the code above in your browser using DataLab