# Example of multiple changes in mean and variance at 50,100,150 in simulated Poisson data
set.seed(1)
x=c(rpois(50,lambda=1),rpois(50,lambda=3),rpois(50,lambda=1),rpois(50,lambda=10))
PELT.meanvar.poisson(x,pen=2*log(200)) # returns c(50,100,150,200)
# Example no change in parameter
set.seed(1)
x=rpois(200,lambda=1)
PELT.meanvar.poisson(x,pen=2*log(200)) # returns 200 to show no change in mean or variance has been
#found
Run the code above in your browser using DataLab