# NOT RUN {
library(haven)
# create labelled factor
x <- labelled(c("M", "M", "F", "X", "N/A"),
c(Male = "M", Female = "F",
Refused = "X", "Not applicable" = "N/A"))
set_label(x) <- "A labelled vector with note"
set_note(x) <- "Test annotation."
get_note(x)
x
# }
Run the code above in your browser using DataLab