# NOT RUN {
data <- data.table::data.table(Value = runif(100000),
FactorCol = as.character(sample(x = c(letters,
LETTERS,
paste0(letters,letters),
paste0(LETTERS,LETTERS),
paste0(letters,LETTERS),
paste0(LETTERS,letters)),
size = 100000,
replace = TRUE)))
data <- ModelDataPrep(data,
Impute = TRUE,
CharToFactor = TRUE,
IntToNumeric = TRUE,
MissFactor = "0",
MissNum = -1)
# }
Run the code above in your browser using DataLab