data <- data.frame(y_1 = rbinom(n = 100, size = 1, prob = 0.3),
y_2 = rnorm(n = 100, mean = 8, sd = 2))
data$y_1_2 <- ntile_label(data$y_1, n = 2, digits = 0)
data$y_2_4 <- ntile_label(data$y_2, n = 4, digits = 1)
Run the code above in your browser using DataLab