## Not run:
# data(routes_fast)
# rsec <- gsection(routes_fast)
# plot(routes_fast)
# lines(rsec, col = "red", lwd = 3)
# length(rsec)
# set.seed(5)
# sel <- sample(length(rsec), 20)
# plot(rsec[sel,], col = "blue", add = TRUE, lwd = 3) # overlapping lines
# ## End(Not run)
Run the code above in your browser using DataLab