Example 2023 HR by bin

LA_breaks <- seq(20, 40, by = 5)
LS_breaks <- seq(95, 110, by = 5)

S <- sc_2023 |>
  bin_rates(LA_breaks, LS_breaks)

bin_plot(S, LA_breaks, LS_breaks, HR)