EBSegmentation(data=numeric(), model=1, Kmax = 15, hyper = numeric(), theta = numeric(), var = numeric(), unif= TRUE)
Johnson, Kotz & Kemp: Univariate Discrete Distributions
Hall, Kay & Titterington: Asymptotically optimal difference-based estimation of variance in non-parametric regression
EBS-class
, EBSDistrib
, EBSProfiles
# 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)
Run the code above in your browser using DataLab