if (FALSE) {
# Get scores for all palettes
all_scores <- check_all_vangogh_cvd()
# Find the most accessible palettes
library(dplyr)
all_scores %>%
group_by(palette) %>%
summarise(avg_distance = mean(min_distance)) %>%
arrange(desc(avg_distance))
}
Run the code above in your browser using DataLab