# Segment a times series using a genetic algorithm
x <- segment(DataCPSim, method = "ga", maxiter = 10)
# Retrieve its fitness value
fitness(x)
# Segment a time series using Wild Binary Segmentation
x <- segment(DataCPSim, method = "wbs")
# Retrive its fitness
fitness(x)
Run the code above in your browser using DataLab