if (interactive() && requireNamespace("EBImage")) {
library(pliman)
# a matrix of coordinates
angls <- poly_apex_base_angle(contours[[2]])
angls
# or a list of coordinates
poly_apex_base_angle(contours)
}
Run the code above in your browser using DataLab