bug in ga algorithm

[beanumber]

library(tidychangepoint)
x <- mlb_hrs |>
  segment(method = "ga", model_fn = fit_meanvar, penalty_fn = BIC, maxiter = 10)
#> method: ga
#> Error in `purrr::map()` at tidychangepoint/R/mod_meanvar.R:13:3:
#> ℹ In index: 1.
#> ℹ With name: [0,1).
#> Caused by error in `ts()`:
#> ! 'ts' object must have one or more observations

^{Created on 2024-04-29 with reprex v2.1.0}

[beanumber]

library(tidychangepoint)
fit_meanvar(mlb_hrs, tau = 1)
#> Error in `purrr::map()` at tidychangepoint/R/mod_meanvar.R:13:3:
#> ℹ In index: 1.
#> ℹ With name: [0,1).
#> Caused by error in `ts()`:
#> ! 'ts' object must have one or more observations

^{Created on 2024-04-29 with reprex v2.1.0}