if (FALSE) {
if (interactive() && nzchar(Sys.getenv("OPENAI_API_KEY"))) {
library(sdcMicro)
data(testdata)
sdc <- KI_createSdcObj(
dat = testdata,
policy = "open",
model = "gpt-4",
api_key = Sys.getenv("OPENAI_API_KEY")
)
sdc <- KI_applyAnonymization(
sdcObj = sdc,
k = 3,
auto = TRUE,
generateReport = FALSE,
verbose = TRUE,
model = "gpt-4",
api_key = Sys.getenv("OPENAI_API_KEY")
)
sdc <- KI_applyAnonymization(
sdcObj = sdc,
k = 3,
auto = TRUE,
generateReport = FALSE,
verbose = TRUE,
model = "gpt-4-turbo",
api_key = Sys.getenv("OPENAI_API_KEY")
)
}
}
Run the code above in your browser using DataLab