# NOT RUN {
c<-.4
t<-2
a<-0; b<-10; int<-c(a,b)
n<-10
dat<-runif(n,a,b)
NumArcsCSmid1D(dat,t,c,int)
TSArcDensCS1D(dat,t,c,int)
NumArcsCSmid1D(dat,t,c=.3,int)
TSArcDensCS1D(dat,t,c=.3,int)
NumArcsCSmid1D(dat,t=1.5,c,int)
TSArcDensCS1D(dat,t=1.5,c,int)
dat<-runif(n,a-1,b+1)
NumArcsCSmid1D(dat,t,c,int)
TSArcDensCS1D(dat,t,c,int)
c<-.4
t<-.5
a<-0; b<-10; int<-c(a,b)
n<-10 #try also n<-20
dat<-runif(n,a,b)
TSArcDensCS1D(dat,t,c,int)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab