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