## Not run: ------------------------------------
# data(wings)
# wm <- mshapes(wings)
# links <- def_links(wm, 3) # click to define pairs of landmarks
# ldk_links(wm, links)
## ---------------------------------------------
Run the code above in your browser using DataLab