# NOT RUN {
data("routes_fast")
rf = routes_fast[!is.na(routes_fast$length),]
r_toptail <- toptailgs(rf, toptail_dist = 300)
plot(routes_fast, lwd = 3)
plot(r_toptail, col = "red", add = TRUE)
plot(cents, add = TRUE)
# }
Run the code above in your browser using DataLab