# NOT RUN {
# Load the dplyr package for access to the %>% operator and group_by()
library(dplyr)
# Inspect descriptives of the response column from the 'quote_source' data
# frame included in tidystats
describe_data(quote_source, response)
# Repeat the former, now for each level of the source column
quote_source %>%
group_by(source) %>%
describe_data(response)
# Only inspect the total N, mean, and standard deviation
quote_source %>%
group_by(source) %>%
describe_data(response, short = TRUE)
# }
Run the code above in your browser using DataLab