#\donttest{
#nx is number of X points (target) and ny is number of Y points (nontarget)
nx<-20; ny<-5;
set.seed(1)
Xp<-cbind(runif(nx,0,1),runif(nx,0,1))
Yp<-cbind(runif(ny,0,.25),
runif(ny,0,.25))+cbind(c(0,0,0.5,1,1),c(0,1,.5,0,1))
M<-c(1,1,1)
r<-1.5
plotPEedges(Xp,Yp,r,M,xlab="",ylab="")
plotPEedges(Xp,Yp,r,M,xlab="",ylab="",ugraph="r")
#}
Run the code above in your browser using DataLab