# NOT RUN {
test <- data.table::data.table(Value = runif(100000),
FactorCol = sample(x = c(letters,
LETTERS,
paste0(letters,letters),
paste0(LETTERS,LETTERS),
paste0(letters,LETTERS),
paste0(LETTERS,letters)),
size = 100000,
replace = TRUE))
test <- DummifyDT(data = test,
cols = "FactorCol",
KeepFactorCols = FALSE,
OneHot = FALSE,
SaveFactorLevels = FALSE,
SavePath = NULL,
ImportFactorLevels = FALSE,
FactorLevelsList = NULL,
ClustScore = FALSE,
ReturnFactorLevels = FALSE)
ncol(test)
test[, sum(FactorCol_gg)]
# }
Run the code above in your browser using DataLab