## Not run:
# data(routes_fast)
# rnet <- overline(routes_fast[c(2, 3, 22),], attrib = "length")
# r1 <- routes_fast[2,]
# r2 <- routes_fast[3,]
# r3 <- routes_fast[22,]
# plot(rnet)
# lines(r3, col = "red") # line without overlaps
# islines(r1, r2)
# islines(r1, r3)
# islines(r2, r3)
#
# ## End(Not run)
Run the code above in your browser using DataLab