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