#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<-cbind(runif(nx),runif(nx))
Yp<-cbind(runif(ny),runif(ny))
oldpar <- par(no.readonly = TRUE)
plotDeltri(Xp,Yp,xlab="",ylab="")
par(oldpar)
M<-c(1,1,1) #try also M<-c(1,2,3)
NumArcsPEMT(Xp,Yp,r=1.25,M)
NumArcsPEMT(Xp,Yp,r=1.5,M)
NumArcsPEMT(Xp,Yp,r=2,M)
NumArcsPEMT(c(.4,.2),Yp,r=1.25)
r<-2
NumArcsPEMT(Xp,Yp,r)
NumArcsPEMT(Xp,Yp[1:3,],r)
NumArcsPEMT(Xp,rbind(Yp,Yp),r)
dat.fr<-data.frame(a=Xp)
NumArcsPEMT(dat.fr,Yp,r)
dat.fr<-data.frame(a=Yp)
NumArcsPEMT(Xp,dat.fr,r)
Run the code above in your browser using DataLab