# \donttest{
# Segment a time series using Coen's algorithm
x <- segment(DataCPSim, method = "coen", num_generations = 3)
# Plot the size of the sets during the evolution
x |>
as.segmenter() |>
plot_best_chromosome()
# }
# \donttest{
# Segment a time series using Coen's algorithm
x <- segment(DataCPSim, method = "coen", num_generations = 3)
# Plot overall frequency of appearance of changepoints
plot_cpt_repeated(x$segmenter)
# Plot frequency of appearance only up to a specific generation
plot_cpt_repeated(x$segmenter, 5)
# }
Run the code above in your browser using DataLab