Last chance! 50% off unlimited learning
Sale ends in
EBSDistrib(x, k, Kk)
Must have 2
EBSegmentation
, EBSPlotProba
# 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)
y1=EBSDistrib(out,1,5)
plot(y1,type='l')
Run the code above in your browser using DataLab