# NOT RUN {
a<-0; b<-10; int<-c(a,b)
c<-.4
r<-2
#nx is number of X points (target) and ny is number of Y points (nontarget)
nx<-20; ny<-4; #try also nx<-40; ny<-10 or nx<-1000; ny<-10;
set.seed(1)
Xp<-runif(nx,a,b)
Yp<-runif(ny,a,b)
plotIntervals(Xp,Yp,main="Xp Points and Intervals Based on Yp Points")
plotPEregsMI(Xp,Yp,r,c,main="PE Proximity Regions for Xp points - Intervalization is by Yp Points")
PEdom1D(Xp,Yp,r,c)
PEdom1D(Xp,Yp,r,c=.25)
PEdom1D(Xp,Yp,r,c=.01)
PEdom1D(Xp,Yp,r=1.25,c)
# }
Run the code above in your browser using DataLab