# NOT RUN {
# load problem (as it was created after performing primary suppression
# in the example of \code{\link{primarySuppression}})
sp <- searchpaths()
fn <- paste(sp[grep("sdcTable", sp)], "/data/problemWithSupps.RData", sep="")
problem <- get(load(fn))
# calculate current lower|upper bounds given current suppression pattern
# (in this case consisting of primary suppressions only)
attack(problem, verbose=FALSE)
# }
Run the code above in your browser using DataLab