# NOT RUN {
if (require("sjmisc")) {
set.seed(123)
x <- set_labels(
sample(1:5, size = 20, replace = TRUE),
labels = c("low" = 1, ".." = 2, ".." = 3, ".." = 4, "high" = 5)
)
frq(x)
z <- tidy_labels(x)
frq(z)
z <- tidy_labels(x, sep = ".")
frq(z)
z <- tidy_labels(x, remove = TRUE)
frq(z)
}
# }
Run the code above in your browser using DataLab