data(francdat)
l1 <- localSuppression(obj = francdat, k = 2, keyVars = c(2, 4:6))
l1
plot(l1)
## with details of suppression by strata
data(testdata2)
testdata2$ageG <- cut(testdata2$age, 5, labels = paste0("AG",1:5))
keyVars <- c("urbrur", "roof", "walls", "water", "electcon", "relat", "sex")
strataVars <- "ageG"
inp <- testdata2[, c(keyVars, strataVars)]
ls <- localSuppression(inp, keyVars = 1:7, strataVars = 8)
print(ls)
plot(ls)
plot(ls, showDetails = TRUE)
Run the code above in your browser using DataLab