# NOT RUN {
# 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')
info <- cellInfo(protectedData, characteristics, varNames, verbose=FALSE)
# show the info about this cell
str(info)
# }
Run the code above in your browser using DataLab