if (FALSE) {
if (interactive() && nzchar(Sys.getenv("OPENAI_API_KEY"))) {
library(sdcMicro)
data(testdata)
sdc <- AI_createSdcObj(dat = testdata, policy = "open", confirm = FALSE)
sdc <- AI_applyAnonymization(sdcObj = sdc, k = 3, verbose = TRUE, confirm = FALSE)
}
}
Run the code above in your browser using DataLab