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