# 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