# Load data
data(tiny_messy_adult)
head(tiny_messy_adult)
# Compute bins
bins <- build_bins(tiny_messy_adult, cols = "auto", n_bins = 5, type = "equal_freq")
# Discretize
tiny_messy_adult <- fast_discretization(tiny_messy_adult, bins = bins)
# Control
head(tiny_messy_adult)
# Example with hand written bins
data("adult")
adult <- fast_discretization(adult, bins = list(age = c(0, 40, +Inf)))
print(table(adult$age))
Run the code above in your browser using DataLab