# load protected data (as created in the example
of \code{\link{protectTable}})
sp <- searchpaths()
fn <- paste(sp[grep("sdcTable", sp)], "/data/protectedData.RData", sep="")
protectedData <- get(load(fn))
characteristics <- c('male', 'D')
varNames <- c('gender', 'region')
verbose <- TRUE
info <- cellInfo(protectedData, characteristics, varNames, verbose)
# show the info about this cell
str(info)Run the code above in your browser using DataLab