# NOT RUN {
# library(h2o)
# h2o.init()
#
# Create a target encoder
# target_encoder <- h2o.targetencoder(training_frame = data, encoded_columns= encoded_columns,
# target_column = "survived", fold_column = "pclass", data_leakage_handling = "KFold")
#
# Apply the Target Encoder transformation
# encoded_data <- h2o.transform(target_encoder, data)
# }
Run the code above in your browser using DataLab