# Create noisy circle data
data = data.frame(x = sapply(1:100, function(x) cos(x)), y = sapply(1:100, function(x) sin(x)))
# Project to horizontal axis as lens
projx = data$x
names(projx) = row.names(data)
# Create a one-dimensional cover
num_bins = 10
percent_overlap = 25
cover = create_width_balanced_cover(min(projx), max(projx), num_bins, percent_overlap)
# Build Mapper object
create_1D_mapper_object(data, dist(data), projx, cover)
Run the code above in your browser using DataLab