# NOT RUN {
data(efc)
library(dplyr)
efc %>%
select(e15relat, e16sex, e17age) %>%
slice(1:3) %>%
lbl_df()
efc %>%
select(e15relat, e16sex, e17age) %>%
to_label() %>%
set_label(c("Relationship", "Elder's gender", "Elder's age")) %>%
lbl_df()
# }
Run the code above in your browser using DataLab