R
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)