# \donttest{
nx<-10; #try also 100 and 1000
ny<-5; #try also 1
e<-.15;
Y<-cbind(runif(ny),runif(ny))
#with default bounding box (i.e., unit square)
Xdt<-rseg.circular(nx,Y,e)
Xdt
plot(Xdt,asp=1)
# }
Run the code above in your browser using DataLab