n<-20 #or try sample(1:20,1); #try also 10, 100, or 1000;
r<-.1; #try also r<-.3 or .5
cent<-c(1,2)
#data generation
Xdat<-runif.circ(n,cent,r) #generated data
Xdat
summary(Xdat)
plot(Xdat,asp=1)
plot(Xdat)
Run the code above in your browser using DataLab