data = data.frame(x = sapply(1:100, function(x) cos(x)), y = sapply(1:100, function(x) sin(x)))
projy = data$y
cover = create_width_balanced_cover(min(projy), max(projy), 10, 25)
mapperobj = create_1D_mapper_object(data, dist(data), data$y, cover)
mapper_object_to_igraph(mapperobj)
Run the code above in your browser using DataLab