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