# 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)
NumArcsCSend1D(dat,t=2,int)
NumArcsCSend1D(dat,t=1.2,int)
NumArcsCSend1D(dat,t=4,int)
NumArcsCSend1D(dat,t=2,int+5)
NumArcsCSend1D(dat,t=2,int=c(-5,15))
n<-10 #try also n<-20
dat2<-runif(n,a-5,b+5)
NumArcsCSend1D(dat2,t=2,int)
t<-.5
NumArcsCSend1D(dat,t,int)
# }
Run the code above in your browser using DataLab