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))
projx = data$x
names(projx) = row.names(data)
dists = dist(data)
num_bins = 10
percent_overlap = 25
cover = create_width_balanced_cover(min(projx), max(projx), num_bins, percent_overlap)
create_1D_mapper_object(data, dists, projx, cover, local_hierarchical_clusterer("mcquitty"))
Run the code above in your browser using DataLab