# \donttest{
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))
M<-"CC" #try also M<-c(1,1,1)
Narcs<-num.arcsAS(Xp,Yp,M)
Narcs
print(Narcs)
typeof(Narcs)
attributes(Narcs)
# }
Run the code above in your browser using DataLab