# Create noisy cirle data set
data = data.frame(x = sapply(1:100, function(x) cos(x)), y = sapply(1:100, function(x) sin(x)))
# Set ball radius
eps = .5
# Create Mapper object
create_ball_mapper_object(data, dist(data), eps)
Run the code above in your browser using DataLab