Dataset generated to play with alpha shapes
# Uniform sample of size n=300 in the annulus B(c, 0.5)\B(c, 0.25) # with c=(0.5, 0.5). n <- 300 theta<-runif(n,0,2*pi) r<-sqrt(runif(n,0.25^2,0.5^2)) x<-cbind(0.5+r*cos(theta),0.5+r*sin(theta)) plot(x)
