c<-.4
r<-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)
plotPEregsInt(7,r,c,int)
plotPEregsInt(dat,r,c,int)
plotPEregsInt(17,r,c,int)
plotPEregsInt(1,r,c,int)
plotPEregsInt(4,r,c,int)
plotPEregsInt(-7,r,c,int)
Run the code above in your browser using DataLab