## Not run: ------------------------------------
# data(bot)
# bot <- bot[1:5] # to make it shorter to try
# # click on 3 points, 5 times.
# # Don't forget to save the object returned by def_ldk...
# bot2 <- def_ldk(bot, 3)
# stack(bot2)
# bot2$ldk
## ---------------------------------------------
Run the code above in your browser using DataLab