# NOT RUN {
library(ggplot2)
dist <- max(A1@connections$distance)
douglasp <- douglasPeucker(A1,dist)
df <- data.frame(x=douglasp@sp@coords[,1],y=douglasp@sp@coords[,2])
ggplot(df,aes(x=df$x,y=df$y))+geom_path(aes(group = 1))
# }
Run the code above in your browser using DataLab