
EBSPostK(x, prior=numeric())
Cleynen & Robin (2014): Comparing change-point location in independent series Statistics and Computing
EBSegmentation
, EBSBIC
, EBSICL
# changes for Poisson model
set.seed(1)
x<-c(rpois(125,1),rpois(100,5),rpois(50,1),rpois(75,5),rpois(50,1))
out <- EBSegmentation(x,model=1,Kmax=20)
Posterior<-EBSPostK(out)
plot(Posterior, type='b')
Run the code above in your browser using DataLab