Reaggregate_interval_rates gives the wrong rate for the lowest bound

[BlackEdder]

lu <- 95
 lst <- qs::qread(file = "~/Downloads/list.qs.gz")

  u_f <- function(v) {
    dplyr::lead(v) |>
      dplyr::coalesce(lu)
  }

  lst$data |>
    dplyr::reframe(ageutils::reaggregate_interval_rates(
      lower_bounds = lower_bound,
      upper_bounds = u_f(lower_bound),
      rates = value,
      breaks = lst$breaks,
    ), .by = c(sex))

I would expect the rate to be 7.1 for the first row, but instead it is 0.108

Data (using fake extension name to fool github) list.qs.gz

[BlackEdder]

This seems to be fixed if I pass weights, with the first 65 values set to zero (because I only start at lower_bound 65)

[TimTaylor]

yeah this looks odd :grimacing: . Taking a look now

[TimTaylor]

Can you try installing from https://github.com/TimTaylor/ageutils/commits/fix8/ and see if that works?

remotes::install_github("TimTaylor/ageutils", ref = "fix8")