# Specify your own list of summaries
l_ranges <- list(min = b_min,
range_diff = b_range_diff,
max = b_max,
iqr = b_iqr)
heights %>%
key_slope(formula = height_cm ~ year) %>%
keys_near(key = country,
var = .slope_year,
funs = l_ranges)
Run the code above in your browser using DataLab