# \donttest{
c<-.4
r<-2
a<-0; b<-10; int<-c(a,b)
n<-10 #try also n<-20
dat<-runif(n,a,b)
NumArcsPEint(dat,r,c,int)
TSArcDensPE1D(dat,r,c,int)
TSArcDensPE1D(dat,r,c,int,alt="g")
TSArcDensPE1D(dat,r,c,int,alt="l")
NumArcsPEint(dat,r,c=.3,int)
TSArcDensPE1D(dat,r,c=.3,int)
NumArcsPEint(dat,r=1.5,c,int)
TSArcDensPE1D(dat,r=1.5,c,int)
dat<-runif(n,a-1,b+1)
NumArcsPEint(dat,r,c,int)
TSArcDensPE1D(dat,r,c,int)
c<-.4
r<-2
a<-0; b<-10; int<-c(a,b)
n<-10 #try also n<-20
dat<-runif(n,a,b)
TSArcDensPE1D(dat,r,c,int)
# }
Run the code above in your browser using DataLab