# Segment a time series using Coen's algorithm
x <- segment(CET, method = "ga-coen", maxiter = 3)
# Recover the arguments passed to the model-fitting function
x |>
as.segmenter() |>
model_args()
Run the code above in your browser using DataLab