# NOT RUN {
mBP <- multiple_breakpoints(c(rbinom(1000, 1, 0.5),
rbinom(1000, 1, 0.1),
rbinom(1000, 1, 0.2)))
plot(mBP)
multiple_breakpoints(matrix(c(sort(rnorm(1000)),
rbinom(500, 1, 0.5),
rbinom(500, 1, 0.1)), ncol = 2),
inf_crit = "HQC")
multiple_breakpoints(matrix(c(sort(rnorm(1500)),
rbinom(500, 1, 0.1),
rbinom(500, 1, 0.3),
rbinom(500, 1, 0.4)), ncol = 2), number_bp = 2)
multiple_breakpoints(matrix(c(1:200, rep(201,5), 202:396,
rbinom(250,1,0.9), rbinom(150,1,0.75)),
ncol = 2), number_bp = 1)
# }
Run the code above in your browser using DataLab