c<-.4
r<-2
a<-0; b<-10; int<-c(a,b)
n<-10
dat<-runif(n,a,b)
NumArcsPEmid1D(dat,r,c,int)
NumArcsPEmid1D(3,r,c,int)
NumArcsPEmid1D(dat,r,c=.3,int)
NumArcsPEmid1D(dat,r=1.5,c,int)
n<-10 #try also n<-20
dat<-runif(n,a-5,b+5)
NumArcsPEmid1D(dat,r,c,int)
dat<-runif(n,a+10,b+10)
NumArcsPEmid1D(dat,r,c,int)
n<-10
dat<-runif(n,a,b)
NumArcsPEmid1D(dat,r,c,int)
Run the code above in your browser using DataLab