# NOT RUN {
set.seed(1554) # for reproducibility
train <- data.frame(
x = rnorm(100),
y = sample(letters[1L:3L], size = 100, replace = TRUE,
prob = c(0.1, 0.1, 0.8))
)
exemplar(train)
# }
Run the code above in your browser using DataLab