# load micro data and create a problem instance
utils::data("microdata1", package = "sdcTable")
p <- sdc_testproblem(with_supps = FALSE)
# apply frequency rule
p1 <- primarySuppression(
object = p,
type = "freq",
maxN = 2
)
# apply p-percent rule (requires specifying a numeric variable)
p2 <- primarySuppression(
object = p,
type = "p",
p = 30,
numVarName = "val"
)
# compare results
data.frame(
p1_sdc = getInfo(p1, type = "sdcStatus"),
p2_sdc = getInfo(p2, type = "sdcStatus")
)
Run the code above in your browser using DataLab