datObj <- get(load(paste(searchpaths()[grep("sdcTable", searchpaths())], "/data/testObj.RData", sep="")))
# all cells with less than 3 units should be primary unsafe
suppRule_Freq <- c(3, 0)
datObj1 <- primarySuppression(datObj, suppRule_Freq=suppRule_Freq)
# p-percent rule with p=80
suppRule_P <- 80
datObj1 <- primarySuppression(datObj, suppRule_P=suppRule_P)
Run the code above in your browser using DataLab