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