# Segment a time series using PELT
x <- segment(CET, method = "pelt")
# Retrieve the name of the model from the segmenter
x |>
as.segmenter() |>
model_name()
# What function created the model?
x |>
model_name() |>
whomademe()
model_name(x$segmenter)
# Retrieve the name of the model from the model
x |>
as.model() |>
model_name()
Run the code above in your browser using DataLab