example(linnet)
lineardisc(letterA, c(0,3), 1.6)
# count the endpoints
countends(letterA, c(0,3), 1.6)
# cross-check (slower)
lineardisc(letterA, c(0,3), 1.6, plotit=FALSE)$endpoints$n
Run the code above in your browser using DataCamp Workspace