# NOT RUN {
# Build a data set
require(data.table)
dataSet <- data.table(student = c("Marie", "Marie", "Pierre", "Louis", "Louis"),
grades = c(1, 1, 2, 3, 4))
# Perform target_encoding construction
build_target_encoding(dataSet, cols_to_encode = "student", target_col = "grades",
functions = c("mean", "sum"))
# }
Run the code above in your browser using DataLab