# NOT RUN {
library(dplyr)
# Calculates the all categorical variables
all_var <- univar_category(heartfailure)
# Print univar_category class object
all_var
# Calculates the only smoking variable
all_var %>%
"["(names(all_var) %in% "smoking")
smoking <- univar_category(heartfailure, smoking)
# Print univar_category class object
smoking
# Filtering the case of smoking included NA
smoking %>%
"[["(1) %>%
filter(!is.na(smoking))
# Summary the all case : Return a invisible copy of an object.
stat <- summary(all_var)
# Summary by returned object
stat
# }
Run the code above in your browser using DataLab