# NOT RUN {
nx<-20; ny<-4; #try also nx<-40; ny<-10 or nx<-1000; ny<-10;
set.seed(1)
Xp<-cbind(runif(nx,0,1),runif(nx,0,1))
Yp<-cbind(runif(ny,0,1),runif(ny,0,1))
M<-c(1,1,1) #try also M<-c(1,2,3)
r<-1.5 #try also r<-2
IM<-IncMatPEMT(Xp,Yp,r,M)
IM
dom.greedy(IM)
# }
# NOT RUN {
dom.exact(IM) #might take a long time in this brute-force fashion ignoring the
#disconnected nature of the digraph inherent by the geometric construction of it
# }
# NOT RUN {
PEdomMTnd(Xp,Yp,r)
Arcs<-ArcsPEMT(Xp,Yp,r,M)
Arcs
summary(Arcs)
plot(Arcs)
IncMatPEMT(Xp,Yp,r,M)
IncMatPEMT(Xp,Yp[1:3,],r,M)
IncMatPEMT(Xp,rbind(Yp,Yp),r,M)
dat.fr<-data.frame(a=Xp)
IncMatPEMT(dat.fr,Yp,r,M)
dat.fr<-data.frame(a=Yp)
IncMatPEMT(Xp,dat.fr,r,M)
# }
Run the code above in your browser using DataLab