# Segment a time series using PELT
x <- segment(CET, method = "pelt")
# Return the segmenter component
x |>
as.segmenter()
# Note the class of this object could be anything
x |>
as.segmenter() |>
class()
# Convert the segmenter into the standardized seg_cpt class
x |>
as.segmenter() |>
as.seg_cpt()
# Is the segmenter valid?
x |>
as.segmenter() |>
is_segmenter()
Run the code above in your browser using DataLab