fl_holes <- save_history(flea[, 1:6], guided_tour(holes()), sphere = TRUE)
path_index(fl_holes, holes())
path_index(fl_holes, cmass())
plot(path_index(fl_holes, holes()), type = "l")
plot(path_index(fl_holes, cmass()), type = "l")
# Use interpolate to show all intermediate bases as well
if (FALSE) {
hi <- path_index(interpolate(fl_holes), holes())
hi
plot(hi)
}
Run the code above in your browser using DataLab