## Not run: ------------------------------------
# b <- bot[1]
# coo_plot(b)
# coo_plot(coo_aligncalliper(b))
# bot.al <- coo_aligncalliper(bot)
# stack(bot.al)
## ---------------------------------------------
Run the code above in your browser using DataLab