datObj <- get(load(paste(searchpaths()[grep("sdcTable", searchpaths())], "/data/testObj.RData", sep="")))
# force some cells to be published/not suppressed
varNames <- c("V3","V2","V1","V4")
characteristics <- c("B","m", "010","0011")
rule <- "z"
datObj <- changeCellStatus(datObj, varNames, characteristics, rule, codesOrig=TRUE, suppZero=FALSE)
# set cells to be candidates for secondary suppression
varNames <- c("V1","V2")
characteristics <- c("010","m") # for V3 and V4 the absolute top-level is used
rule <- "s"
datObj <- changeCellStatus(datObj, varNames, characteristics, rule, codesOrig=TRUE, suppZero=FALSE)
Run the code above in your browser using DataLab