# NOT RUN {
library(BayesProject)
data(testdata)
resSumCusum <- summaxcusum(testdata,sum_cusum=TRUE)
print(resSumCusum$cpt)
resMaxCusum <- summaxcusum(testdata,sum_cusum=FALSE)
print(resMaxCusum$cpt)
# }
Run the code above in your browser using DataLab