# NOT RUN {
# Calling on a vector:
val <- c("hi", "med", "med", "lo")
tabyl(val)
tabyl(mtcars$cyl, sort = TRUE)
# Passing in a data.frame using a pipeline:
mtcars %>% tabyl(cyl, sort = TRUE)
# illustrating show_na functionality:
my_cars <- rbind(mtcars, rep(NA, 11))
tabyl(my_cars$cyl)
tabyl(my_cars$cyl, show_na = FALSE)
# }
Run the code above in your browser using DataLab