The function finds the value which yields the maximum inner product with the input time series (CUSUM) located between
cr.rand.max.inner.prod(XX,Ts,C_i,epp,M = 0,Plot = FALSE,cstar=0.95)
The wavelet periodogram.
The sample size of the series.
The CUSUM threshold.
A minimum adjustment for the bias present in
Number of random CUSUM to be generated.
Plot the threhsold CUSUM statistics across the wavelet scales.
A scalar in (0.67,1]
Candidate change point
The maximum CUSUM value
The starting point
The ending point
%% ...
K. Korkas and P. Fryzlewicz (2017), Multiple change-point detection for non-stationary time series using Wild Binary Segmentation. Statistica Sinica, 27, 287-311. (http://stats.lse.ac.uk/fryzlewicz/WBS_LSW/WBS_LSW.pdf)
# NOT RUN {
#cps=seq(from=1000,to=2000,by=200)
#y=sim.pw.arma(N =3000,sd_u = c(1,1.5,1,1.5,1,1.5,1),
#b.slope=rep(0.99,7),b.slope2 = rep(0.,7), mac = rep(0.,7),br.loc = cps)[[2]]
#z=ews.trans(y,scales=c(11,9,8,7,6))
#out=cr.rand.max.inner.prod(z, Ts = length(y),C_i = tau.fun(y),
#epp = rep(32,5), M = 2000, cstar = 0.75, Plot = 1)
#abline(v=cps,col="red")
# }
Run the code above in your browser using DataLab