if (FALSE) {
nx<-15; ny<-5; #try also nx<-40; ny<-10 or nx<-1000; ny<-10;
set.seed(1)
Xp<-cbind(runif(nx),runif(nx))
Yp<-cbind(runif(ny,0,.25),runif(ny,0,.25))+cbind(c(0,0,0.5,1,1),c(0,1,.5,0,1))
#try also Yp<-cbind(runif(ny,0,1),runif(ny,0,1))
plotDeltri(Xp,Yp,xlab="",ylab="")
M<-"CC" #try also M<-c(1,1,1)
NumArcsAS(Xp,Yp,M)
NumArcsAS(Xp,Yp[1:3,],M)
NumArcsAS(c(.4,.2),Yp,M)
Xp2=Xp+10
NumArcsAS(Xp2,Yp,M)
NumArcsAS(Xp,rbind(Yp,Yp),M)
}
Run the code above in your browser using DataLab