# \donttest{
nx<-10; #try also 20, 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
print(Xdt)
typeof(Xdt)
attributes(Xdt)
# }
Run the code above in your browser using DataLab