# NOT RUN {
c<-.4
t<-2
a<-0; b<-10; int<-c(a,b)
n<-10
xr<-range(a,b)
xf<-(xr[2]-xr[1])*.1
dat<-runif(n,a-xf,b+xf) #try also dat<-runif(n,a-5,b+5)
plotCSregsInt(7,t,c,int)
plotCSregsInt(dat,t,c,int)
plotCSregsInt(17,t,c,int)
plotCSregsInt(1,t,c,int)
plotCSregsInt(4,t,c,int)
plotCSregsInt(-7,t,c,int)
# }
Run the code above in your browser using DataLab