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