# NOT RUN {
set.seed(10)
d=defaultTimeseries(1000,0.1,10,0.01)
n=rep(1000,10)
IntraCorr=intraCMM(d,n,l=0)
#Estimation with two lags of autocorrelation
IntraCorr=intraCMM(d,n, l=2 )
#Jackknife correction
IntraCorr=intraCMM(d,n, JC=TRUE)
# }
# NOT RUN {
#Bootstrap correction with bootstrap confidence intervals
IntraCorr=intraCMM(d,n, B=1000, CI_Boot=0.95 )
#Bootstrap correction with bootstrap confidence intervals and plot
IntraCorr=intraCMM(d,n, B=1000, CI_Boot=0.95, plot=TRUE )
#Double Bootstrap correction with 10 repetitions in the inner loop and 50 in the outer loop
IntraCorr=intraCMM(d,n, DB=c(10,50))
# }
Run the code above in your browser using DataLab