all_picks_df <-
    list.files('../data/picks', '*.csv') %>%
    map_dfr(
        ~read_csv(
            paste0('../data/picks/', .x),
            col_types = cols(
                .default = col_double(),
                radiant_win = col_logical()
            )
        )
    )

binned_win_rate <- calc_binned_win_rate(all_picks_df)