# load primary suppressed data (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
# we see that the cell with index.tot==1 is the overall total and its
# anonymization state of the total can be extracted as follows:
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')
# we can verify this:
print(getInfo(problem, type='sdcStatus')[index.tot])
Run the code above in your browser using DataLab