powered by
EBSPostK(x, prior=numeric())
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