tau<-2
c<-.4
a<-0; b<-10; int<-c(a,b)
#n is number of X points
n<-10; #try also n<-20;
set.seed(1)
xf<-(int[2]-int[1])*.1
Xp<-runif(n,a-xf,b+xf)
Xlim=range(Xp,int)
Ylim=3*c(-1,1)
jit<-.1
plotCSarcs.int(Xp,int,t=tau,c,jit,xlab="",ylab="",xlim=Xlim,ylim=Ylim)
set.seed(1)
plotCSarcs.int(Xp,int,t=1.5,c=.3,jit,xlab="",ylab="",center=TRUE)
set.seed(1)
plotCSarcs.int(Xp,int,t=2,c=.4,jit,xlab="",ylab="",center=TRUE)
Run the code above in your browser using DataLab