# NOT RUN {
integers <- data.frame(A = 1:12, B = 13:24, C = 25:36)
library(dplyr)
rec <- recipe(~ A + B + C, data = integers) %>%
step_shuffle(A, B)
rand_set <- prep(rec, training = integers)
set.seed(5377)
bake(rand_set, integers)
tidy(rec, number = 1)
tidy(rand_set, number = 1)
# }
Run the code above in your browser using DataLab