# NOT RUN {
require(tidyverse)
heart_disease %>%
#Compute means and medians on numeric data
typly(
c("numeric", "logical"),
list(
mean = mean,
median = median
),
keep = TRUE,
na.rm = TRUE
) %>%
#Compute table
typly(
"factor",
table,
keep = TRUE
)
# }
Run the code above in your browser using DataLab