## Not run:
# plot(flowlines)
# rf <- line2route(l = flowlines, "route_cyclestreet", plan = "fastest")
# rq <- line2route(l = flowlines, plan = "quietest", silent = TRUE)
# plot(rf, col = "red", add = TRUE
# plot(rq, col = "green", add = TRUE
# # Plot for a single line to compare 'fastest' and 'quietest' route
# n = 21
# plot(flowlines[n,])
# lines(rf[n,], col = "red")
# lines(rq[n,], col = "green")
# ## End(Not run)
Run the code above in your browser using DataLab