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