# NOT RUN {
require(tidyverse)
#1) Default
heart_disease %>%
descriptives()
#2) Allow logicals as categorical
heart_disease %>%
descriptives(
categorical_types = c("logical", "factor")
)
#3) Only apply "other" functions to numeric types
heart_disease %>%
descriptives(
numeric_types = NULL
)
#4) Compute a custom function
heart_disease %>%
descriptives(
f_numeric =
list(
cv = function(x, na.rm) sd(x, na.rm = na.rm)/mean(x, na.rm = na.rm)
)
)
# }
Run the code above in your browser using DataLab