# NOT RUN {
a<-0; b<-10; int<-c(a,b)
n<-5
datL<-runif(n,a-5,a)
datR<-runif(n,b,b+5)
dat<-c(datL,datR)
r<-2
NumArcsPEend1D(dat,r,int)
NumArcsPEend1D(dat,r=1.2,int)
NumArcsPEend1D(dat,r=4,int)
n<-10 #try also n<-20
dat2<-runif(n,a-5,b+5)
NumArcsPEend1D(dat2,r,int)
NumArcsPEend1D(dat,r,int)
# }
Run the code above in your browser using DataLab