# NOT RUN {
#example
library(cpcens)
data("censoredex")
data=censoredex
n=144
N=100
agg = apply( data , 2 , sum )
pagg = PELT( agg , 200*log(dim(data)[2]) )
agg.chpts = rep( rev( pagg$cpts )[1] , N )
# }
Run the code above in your browser using DataLab