## Not run:
# data(routes_fast)
# shp <- routes_fast[1,]
# rfs10 <- mapshape(shp)
# rfs5 <- mapshape(shp, percent = 5)
# rfs1 <- mapshape(shp, percent = 1)
# plot(shp)
# plot(rfs10, add = TRUE, col ="red")
# plot(rfs5, add = TRUE, col ="blue")
# plot(rfs1, add = TRUE, col = "grey")
# # snap the lines to the nearest interval
# rfs_int <- mapshape(shp, ms_options = "snap-interval=0.001")
# plot(shp)
# plot(rfs_int, add = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab