# \donttest{
# Segment a time series using a genetic algorithm
res <- segment_cga(CET)
summary(res)
# Segment a time series using changepointGA
x <- segment(CET, method = "cga")
summary(x)
changepoints(x)
# }
Run the code above in your browser using DataLab