cpts <- segment(DataCPSim, method = "ga", maxiter = 5)
changepoints(cpts$segmenter)
# \donttest{
# Segment a times series using a genetic algorithm
cpts <- segment(DataCPSim, method = "cga")
changepoints(cpts$segmenter)
# }
cpts <- segment(DataCPSim, method = "segmented")
changepoints(cpts$segmenter)
cpts <- segment(DataCPSim, method = "wbs")
changepoints(cpts$segmenter)
Run the code above in your browser using DataLab