# NOT RUN {
# Make a serie with three jumps, same as N_break_point example
set.seed(524)
x <- c(rnorm(30,1,1),rnorm(30,2,1),rnorm(30,1,1),rnorm(20,2,1))
# Look for break using yamamoto()
break_prosition <- yamamoto(serie = x)
plot(x)
abline(v = break_prosition$breaks, col='red')
# }
Run the code above in your browser using DataLab