data(efc)
get_labels(efc$e42dep)
x <- remove_labels(efc$e42dep, 2)
get_labels(x, include.values = "p")
x <- remove_labels(efc$e42dep, "independent")
get_labels(x, include.values = "p")
library(haven)
x <- labelled(c(1:3, tagged_na("a", "c", "z"), 4:1),
c("Agreement" = 1, "Disagreement" = 4, "First" = tagged_na("c"),
"Refused" = tagged_na("a"), "Not home" = tagged_na("z")))
# get current NA values
get_na(x)
get_na(remove_labels(x, tagged_na("c")))
Run the code above in your browser using DataLab