# NOT RUN {
#'#example(left censoring)
library(cpcens)
n=300
N=100
# Generate censored data using MA model
sim=MA1.data(n = 300, N = 100, K = 5, eps = 1,
rho = 0.4, mu = 0, siga = 1, rates = c(0.6,NA), Mrate = 0)
data=sim$data
mrc = mrc.mean( data , beta = 1.5*log(n) )
c = multiple.mrc( mrc , pmax=10, alpha = 2 , elbow.thresh = 0.5, n=500 )
p.hat = c$MDL
mrc.chpts = c$locs[[p.hat]][ c$affected[[p.hat]] ]
mrc.chpts
# }
Run the code above in your browser using DataLab