# NOT RUN {
age <- c(10, 12, 16, 18, 20, 22, 25, 27)
# Note that values not assigned a new labelled value remain unchanged
lbl_define(
age,
lbl(1, "Pre-college age") ~ .val < 18,
lbl(2, "College age") ~ .val >= 18 & .val <= 22
)
# }
Run the code above in your browser using DataLab