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