# \donttest{
c<-.4
r<-2
a<-0; b<-10; int<-c(a,b)
n<-10
xf<-(int[2]-int[1])*.1
Xp<-runif(n,a-xf,b+xf) #try also Xp<-runif(n,a-5,b+5)
plotPEregs.int(Xp,int,r,c,xlab="x",ylab="")
plotPEregs.int(7,int,r,c,xlab="x",ylab="")
# }
Run the code above in your browser using DataLab