data(efc)
str(efc$e42dep)
x <- set_labels(efc$e42dep,
c(`1` = "independent",
`4` = "severe dependency"))
table(x)
get_values(x)
str(x)
# zap all labelled values
x <- set_labels(efc$e42dep,
c(`1` = "independent",
`4` = "severe dependency"))
table(zap_labels(x))
get_values(zap_labels(x))
str(zap_labels(x))
# zap all unlabelled values
x <- set_labels(efc$e42dep,
c(`1` = "independent",
`4` = "severe dependency"))
table(zap_unlabelled(x))
get_values(zap_unlabelled(x))
str(zap_unlabelled(x))
Run the code above in your browser using DataLab