# NOT RUN {
rnet <- overline(routes_fast[c(2, 3, 22),], attrib = "length")
plot(rnet)
lines(routes_fast[22,], col = "red") # line without overlaps
islines(routes_fast[2,], routes_fast[3,])
islines(routes_fast[2,], routes_fast[22,])
# sf implementation
islines(routes_fast_sf[2,], routes_fast_sf[3,])
islines(routes_fast_sf[2,], routes_fast_sf[22,])
# }
Run the code above in your browser using DataLab